home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1987-02-03 | 20.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Encapsulated PostScript (image/eps)
| ext
| Supported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1b 4f 1b 21 00 1b 70 00 | 1b 21 00 1b 41 0c 1b 41 |.O.!..p.|.!..A..A|
|00000010| 48 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b |H. | .|
|00000020| 47 42 41 53 44 4c 58 20 | 28 43 29 20 43 6f 70 79 |GBASDLX |(C) Copy|
|00000030| 72 69 67 68 74 20 31 39 | 38 36 2d 38 37 20 42 79 |right 19|86-87 By|
|00000040| 20 47 75 73 74 61 76 6f | 20 56 65 72 64 75 6e 20 | Gustavo| Verdun |
|00000050| 20 20 20 20 20 20 50 61 | 67 65 20 31 1b 48 1b 41 | Pa|ge 1.H.A|
|00000060| 0c 0a 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |...... | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 41 53 44 | | BASD|
|00000090| 4c 58 2e 4c 49 42 0d 0a | 0d 0a 20 20 20 20 20 20 |LX.LIB..|.. |
|000000a0| 20 20 20 20 20 44 65 6c | 75 78 65 20 4c 69 62 72 | Del|uxe Libr|
|000000b0| 61 72 79 20 6f 66 20 66 | 75 6e 63 74 69 6f 6e 73 |ary of f|unctions|
|000000c0| 20 77 72 69 74 74 65 6e | 20 69 6e 20 61 73 73 65 | written| in asse|
|000000d0| 6d 62 6c 79 20 6c 61 6e | 67 75 61 67 65 20 66 6f |mbly lan|guage fo|
|000000e0| 72 20 74 68 65 0d 0a 20 | 20 20 20 20 20 20 20 20 |r the.. | |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 42 41 53 49 43 | | BASIC|
|00000110| 20 43 6f 6d 70 69 6c 65 | 72 0d 0a 0d 0a 20 20 20 | Compile|r.... |
|00000120| 20 20 20 20 20 20 20 42 | 41 53 44 4c 58 2c 20 42 | B|ASDLX, B|
|00000130| 61 73 69 63 20 44 65 6c | 75 78 65 2c 20 69 73 20 |asic Del|uxe, is |
|00000140| 61 20 6c 69 62 72 61 72 | 79 20 6f 66 20 70 6f 77 |a librar|y of pow|
|00000150| 65 72 66 75 6c 20 66 75 | 6e 63 74 69 6f 6e 73 20 |erful fu|nctions |
|00000160| 66 6f 72 20 63 6f 6d 2d | 0d 0a 20 20 20 20 20 20 |for com-|.. |
|00000170| 20 20 20 20 70 69 6c 65 | 64 20 42 41 53 49 43 2e | pile|d BASIC.|
|00000180| 20 20 54 6f 20 75 73 65 | 20 20 42 41 53 44 4c 58 | To use| BASDLX|
|00000190| 2e 4c 49 42 20 79 6f 75 | 20 77 69 6c 6c 20 6e 65 |.LIB you| will ne|
|000001a0| 65 64 2c 20 20 65 69 74 | 68 65 72 20 20 74 68 65 |ed, eit|her the|
|000001b0| 20 20 49 42 4d 0d 0a 20 | 20 20 20 20 20 20 20 20 | IBM.. | |
|000001c0| 20 42 61 73 69 63 20 20 | 63 6f 6d 70 69 6c 65 72 | Basic |compiler|
|000001d0| 20 6f 72 20 74 68 65 20 | 4d 69 63 72 6f 73 6f 66 | or the |Microsof|
|000001e0| 74 20 51 75 69 63 6b 62 | 61 73 69 63 20 63 6f 6d |t Quickb|asic com|
|000001f0| 70 69 6c 65 72 2e 20 20 | 49 20 20 73 75 67 67 65 |piler. |I sugge|
|00000200| 73 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 74 68 |st.. | th|
|00000210| 61 74 20 79 6f 75 20 75 | 73 65 20 50 43 2d 44 4f |at you u|se PC-DO|
|00000220| 53 2f 4d 53 2d 44 4f 53 | 20 76 65 72 73 69 6f 6e |S/MS-DOS| version|
|00000230| 73 20 32 2e 30 20 6f 72 | 20 6c 61 74 65 72 20 74 |s 2.0 or| later t|
|00000240| 6f 20 20 69 6e 73 75 72 | 65 20 20 66 75 6c 6c 0d |o insur|e full.|
|00000250| 0a 20 20 20 20 20 20 20 | 20 20 20 63 6f 6d 70 61 |. | compa|
|00000260| 74 69 62 69 6c 69 74 79 | 2e 20 54 68 65 73 65 20 |tibility|. These |
|00000270| 72 6f 75 74 69 6e 65 73 | 20 68 61 76 65 20 62 65 |routines| have be|
|00000280| 65 6e 20 74 65 73 74 65 | 64 20 77 69 74 68 20 74 |en teste|d with t|
|00000290| 68 65 20 49 42 4d 20 42 | 61 73 69 63 0d 0a 20 20 |he IBM B|asic.. |
|000002a0| 20 20 20 20 20 20 20 20 | 63 6f 6d 70 69 6c 65 72 | |compiler|
|000002b0| 20 76 65 72 73 69 6f 6e | 20 32 2e 30 20 61 6e 64 | version| 2.0 and|
|000002c0| 20 68 61 76 65 20 63 61 | 75 73 65 64 20 6e 6f 20 | have ca|used no |
|000002d0| 70 72 6f 62 6c 65 6d 73 | 2e 20 20 48 6f 77 65 76 |problems|. Howev|
|000002e0| 65 72 2c 20 20 49 20 61 | 6d 0d 0a 20 20 20 20 20 |er, I a|m.. |
|000002f0| 20 20 20 20 20 6e 6f 74 | 20 72 65 73 70 6f 6e 73 | not| respons|
|00000300| 69 62 6c 65 20 66 6f 72 | 20 61 6e 79 20 64 61 6d |ible for| any dam|
|00000310| 61 67 65 73 20 63 61 75 | 73 65 64 20 62 79 20 62 |ages cau|sed by b|
|00000320| 75 74 2c 20 20 6e 6f 74 | 20 20 6c 69 6d 69 74 65 |ut, not| limite|
|00000330| 64 20 20 74 6f 2c 0d 0a | 20 20 20 20 20 20 20 20 |d to,..| |
|00000340| 20 20 74 68 65 20 75 73 | 65 2c 20 20 6d 69 73 75 | the us|e, misu|
|00000350| 73 65 20 6f 72 20 69 6e | 61 62 69 6c 69 74 79 20 |se or in|ability |
|00000360| 74 6f 20 75 73 65 20 42 | 41 53 44 4c 58 2e 20 20 |to use B|ASDLX. |
|00000370| 20 54 68 65 73 65 20 64 | 65 6c 75 78 65 20 66 75 | These d|eluxe fu|
|00000380| 6e 63 2d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 74 |nc-.. | t|
|00000390| 69 6f 6e 73 20 61 72 65 | 20 69 6e 74 65 6e 64 65 |ions are| intende|
|000003a0| 64 20 74 6f 20 62 65 20 | 75 73 65 64 20 69 6e 20 |d to be |used in |
|000003b0| 63 6f 6d 70 69 6c 65 64 | 20 62 61 73 69 63 20 6f |compiled| basic o|
|000003c0| 6e 6c 79 2e 20 44 6f 20 | 6e 6f 74 20 63 6f 6e 2d |nly. Do |not con-|
|000003d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 66 75 73 65 |.. | fuse|
|000003e0| 20 63 6f 6d 70 69 6c 65 | 64 20 42 41 53 49 43 20 | compile|d BASIC |
|000003f0| 77 69 74 68 20 20 74 68 | 65 20 20 42 41 53 49 43 |with th|e BASIC|
|00000400| 20 20 69 6e 74 65 72 70 | 72 65 74 65 72 2c 20 20 | interp|reter, |
|00000410| 42 41 53 49 43 2e 43 4f | 4d 20 20 6f 72 0d 0a 20 |BASIC.CO|M or.. |
|00000420| 20 20 20 20 20 20 20 20 | 20 42 41 53 49 43 41 2e | | BASICA.|
|00000430| 43 4f 4d 20 20 74 68 61 | 74 20 20 63 6f 6d 65 73 |COM tha|t comes|
|00000440| 20 77 69 74 68 20 44 4f | 53 2e 20 20 54 68 65 20 | with DO|S. The |
|00000450| 66 75 6e 63 74 69 6f 6e | 73 20 70 72 6f 76 69 64 |function|s provid|
|00000460| 65 64 20 69 6e 20 74 68 | 69 73 0d 0a 20 20 20 20 |ed in th|is.. |
|00000470| 20 20 20 20 20 20 6c 69 | 62 72 61 72 79 20 68 61 | li|brary ha|
|00000480| 76 65 20 62 65 65 6e 20 | 64 65 73 69 67 6e 65 64 |ve been |designed|
|00000490| 20 74 6f 20 72 75 6e 20 | 66 61 73 74 65 72 20 74 | to run |faster t|
|000004a0| 68 61 6e 20 69 74 27 73 | 20 20 63 6f 72 72 65 73 |han it's| corres|
|000004b0| 70 6f 6e 64 65 6e 74 0d | 0a 20 20 20 20 20 20 20 |pondent.|. |
|000004c0| 20 20 20 62 61 73 69 63 | 20 63 6f 64 65 2c 20 20 | basic| code, |
|000004d0| 61 6e 64 20 6f 66 74 65 | 6e 20 74 61 6b 65 20 75 |and ofte|n take u|
|000004e0| 70 20 6c 65 73 73 20 73 | 70 61 63 65 2c 20 20 6c |p less s|pace, l|
|000004f0| 65 61 76 69 6e 67 20 79 | 6f 75 20 77 69 74 68 20 |eaving y|ou with |
|00000500| 6d 6f 72 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |more.. | |
|00000510| 72 6f 6f 6d 20 74 6f 20 | 77 72 69 74 65 20 6c 6f |room to |write lo|
|00000520| 6e 67 65 72 20 70 72 6f | 67 72 61 6d 73 21 0d 0a |nger pro|grams!..|
|00000530| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 54 68 69 73 |.. | This|
|00000540| 20 69 73 20 74 68 65 20 | 53 65 63 6f 6e 64 2c 20 | is the |Second, |
|00000550| 20 6f 66 20 6d 61 6e 79 | 20 70 75 62 6c 69 63 20 | of many| public |
|00000560| 72 65 6c 65 61 73 65 73 | 20 6f 66 20 74 68 65 20 |releases| of the |
|00000570| 42 61 73 69 63 20 20 44 | 65 6c 75 78 65 0d 0a 20 |Basic D|eluxe.. |
|00000580| 20 20 20 20 20 20 20 20 | 20 6c 69 62 72 61 72 79 | | library|
|00000590| 2e 20 59 6f 75 20 61 72 | 65 20 66 72 65 65 20 74 |. You ar|e free t|
|000005a0| 6f 20 75 73 65 20 74 68 | 65 20 66 75 6e 63 74 69 |o use th|e functi|
|000005b0| 6f 6e 73 20 70 72 6f 76 | 69 64 65 64 20 69 6e 20 |ons prov|ided in |
|000005c0| 74 68 65 20 42 41 53 44 | 4c 58 0d 0a 20 20 20 20 |the BASD|LX.. |
|000005d0| 20 20 20 20 20 20 6c 69 | 62 72 61 72 79 20 20 69 | li|brary i|
|000005e0| 6e 20 79 6f 75 72 20 70 | 72 6f 67 72 61 6d 73 2e |n your p|rograms.|
|000005f0| 20 54 68 65 20 63 6f 70 | 79 72 69 67 68 74 20 69 | The cop|yright i|
|00000600| 73 20 6f 6e 6c 79 20 68 | 65 72 65 20 74 6f 20 70 |s only h|ere to p|
|00000610| 72 65 73 65 72 76 65 0d | 0a 20 20 20 20 20 20 20 |reserve.|. |
|00000620| 20 20 20 6d 79 20 77 6f | 72 6b 20 61 6e 64 20 74 | my wo|rk and t|
|00000630| 6f 20 70 72 6f 74 65 63 | 74 20 79 6f 75 20 66 72 |o protec|t you fr|
|00000640| 6f 6d 20 61 6e 79 20 75 | 6e 61 75 74 68 6f 72 69 |om any u|nauthori|
|00000650| 7a 65 64 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |zed modi|fication|
|00000660| 73 20 6f 66 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |s of.. | |
|00000670| 42 41 53 44 4c 58 3b 20 | 20 69 74 20 20 69 73 20 |BASDLX; | it is |
|00000680| 4e 4f 54 20 68 65 72 65 | 20 74 6f 20 70 72 6f 74 |NOT here| to prot|
|00000690| 65 63 74 20 61 67 61 69 | 6e 73 74 20 74 68 65 20 |ect agai|nst the |
|000006a0| 66 72 65 65 20 64 69 73 | 74 72 69 62 75 74 69 6f |free dis|tributio|
|000006b0| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 20 6f 66 20 |n.. | of |
|000006c0| 42 41 53 44 4c 58 2e 20 | 20 59 6f 75 20 6d 61 79 |BASDLX. | You may|
|000006d0| 20 63 6f 70 79 20 61 6e | 64 20 64 69 73 74 72 69 | copy an|d distri|
|000006e0| 62 75 74 65 20 42 41 53 | 44 4c 58 20 74 6f 20 20 |bute BAS|DLX to |
|000006f0| 6f 74 68 65 72 73 20 61 | 73 20 6c 6f 6e 67 0d 0a |others a|s long..|
|00000700| 20 20 20 20 20 20 20 20 | 20 20 61 73 20 6e 6f 20 | | as no |
|00000710| 20 66 65 65 20 6f 72 20 | 73 70 65 63 69 61 6c 20 | fee or |special |
|00000720| 63 6f 6e 73 69 64 65 72 | 61 74 69 6f 6e 20 69 73 |consider|ation is|
|00000730| 20 63 68 61 72 67 65 64 | 20 61 6e 64 20 61 6c 6c | charged| and all|
|00000740| 20 6f 66 20 74 68 65 20 | 72 65 2d 0d 0a 20 20 20 | of the |re-.. |
|00000750| 20 20 20 20 20 20 20 6c | 61 74 65 64 20 20 66 69 | l|ated fi|
|00000760| 6c 65 73 20 20 74 6f 20 | 20 42 41 53 44 4c 58 20 |les to | BASDLX |
|00000770| 20 61 72 65 20 69 6e 63 | 6c 75 64 65 64 20 74 6f | are inc|luded to|
|00000780| 67 65 74 68 65 72 20 69 | 6e 20 74 68 65 20 75 6e |gether i|n the un|
|00000790| 6d 6f 64 69 66 69 65 64 | 0d 0a 20 20 20 20 20 20 |modified|.. |
|000007a0| 20 20 20 20 66 6f 72 6d | 2e 20 20 49 66 20 79 6f | form|. If yo|
|000007b0| 75 20 75 73 65 20 42 41 | 53 44 4c 58 20 69 6e 20 |u use BA|SDLX in |
|000007c0| 79 6f 75 72 20 70 72 6f | 67 72 61 6d 73 20 61 6e |your pro|grams an|
|000007d0| 64 20 66 69 6e 64 20 69 | 74 20 61 20 20 76 61 6c |d find i|t a val|
|000007e0| 75 61 62 6c 65 0d 0a 20 | 20 20 20 20 20 20 20 20 |uable.. | |
|000007f0| 20 74 6f 6f 6c 20 20 74 | 68 65 6e 20 49 20 77 6f | tool t|hen I wo|
|00000800| 75 6c 64 20 61 70 70 72 | 65 63 69 61 74 65 20 69 |uld appr|eciate i|
|00000810| 74 20 69 66 20 79 6f 75 | 20 77 6f 75 6c 64 20 73 |t if you| would s|
|00000820| 65 6e 64 20 61 20 63 6f | 6e 74 72 69 62 75 74 69 |end a co|ntributi|
|00000830| 6f 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 28 24 |on.. | ($|
|00000840| 32 35 20 73 75 67 67 65 | 73 74 65 64 29 2e 20 20 |25 sugge|sted). |
|00000850| 49 74 20 20 77 6f 75 6c | 64 20 62 65 20 6e 69 63 |It woul|d be nic|
|00000860| 65 20 69 66 20 79 6f 75 | 20 63 6f 75 6c 64 20 61 |e if you| could a|
|00000870| 63 6b 6e 6f 77 6c 65 64 | 67 65 20 20 75 73 65 0d |cknowled|ge use.|
|00000880| 0a 20 20 20 20 20 20 20 | 20 20 20 6f 66 20 20 42 |. | of B|
|00000890| 41 53 44 4c 58 20 20 66 | 75 6e 63 74 69 6f 6e 73 |ASDLX f|unctions|
|000008a0| 20 20 69 6e 20 79 6f 75 | 72 20 70 72 6f 67 72 61 | in you|r progra|
|000008b0| 6d 73 20 6f 72 20 64 6f | 63 75 6d 65 6e 74 61 74 |ms or do|cumentat|
|000008c0| 69 6f 6e 20 74 68 61 74 | 20 75 73 65 0d 0a 20 20 |ion that| use.. |
|000008d0| 20 20 20 20 20 20 20 20 | 74 68 65 6d 2e 20 59 6f | |them. Yo|
|000008e0| 75 72 20 63 6f 6e 74 72 | 69 62 75 74 69 6f 6e 20 |ur contr|ibution |
|000008f0| 77 69 6c 6c 20 67 6f 20 | 69 6e 74 6f 20 61 20 66 |will go |into a f|
|00000900| 75 6e 64 20 74 68 61 74 | 20 77 69 6c 6c 20 66 69 |und that| will fi|
|00000910| 6e 61 6e 63 65 20 74 68 | 65 0d 0a 20 20 20 20 20 |nance th|e.. |
|00000920| 20 20 20 20 20 72 65 6e | 74 61 6c 20 6f 66 20 61 | ren|tal of a|
|00000930| 20 70 72 69 76 61 74 65 | 20 42 42 53 20 66 6f 72 | private| BBS for|
|00000940| 20 63 6f 6e 74 72 69 62 | 75 74 6f 72 73 2e 20 20 | contrib|utors. |
|00000950| 59 6f 75 72 20 20 20 20 | 70 72 69 76 69 6c 65 67 |Your |privileg|
|00000960| 65 73 20 20 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |es on..| |
|00000970| 20 20 74 68 69 73 20 73 | 79 73 74 65 6d 20 77 69 | this s|ystem wi|
|00000980| 6c 6c 20 69 6e 63 6c 75 | 64 65 3a 20 35 30 20 6d |ll inclu|de: 50 m|
|00000990| 69 6e 75 74 65 73 20 6f | 66 20 61 63 63 65 73 73 |inutes o|f access|
|000009a0| 20 74 69 6d 65 20 70 65 | 72 20 64 61 79 2c 20 20 | time pe|r day, |
|000009b0| 61 6e 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 61 |and.. | a|
|000009c0| 20 73 70 65 63 69 61 6c | 20 6f 6e 2d 6c 69 6e 65 | special| on-line|
|000009d0| 20 22 42 41 53 44 4c 58 | 20 52 65 71 75 65 73 74 | "BASDLX| Request|
|000009e0| 2f 43 6f 6d 6d 65 6e 74 | 20 20 46 6f 72 6d 22 20 |/Comment| Form" |
|000009f0| 20 77 68 65 72 65 20 20 | 79 6f 75 20 20 6d 61 79 | where |you may|
|00000a00| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 72 65 71 75 |.. | requ|
|00000a10| 65 73 74 20 6e 65 77 20 | 66 75 6e 63 74 69 6f 6e |est new |function|
|00000a20| 73 2c 20 6f 72 20 63 6f | 6d 6d 65 6e 74 20 6f 6e |s, or co|mment on|
|00000a30| 20 65 78 69 73 74 69 6e | 67 20 6f 6e 65 73 21 20 | existin|g ones! |
|00000a40| 59 6f 75 20 77 69 6c 6c | 20 61 6c 73 6f 0d 0a 20 |You will| also.. |
|00000a50| 20 20 20 20 20 20 20 20 | 20 62 65 20 20 61 62 6c | | be abl|
|00000a60| 65 20 74 6f 20 64 6f 77 | 6e 6c 6f 61 64 20 74 68 |e to dow|nload th|
|00000a70| 65 20 6c 61 74 65 73 74 | 20 76 65 72 73 69 6f 6e |e latest| version|
|00000a80| 20 6f 66 20 42 41 53 44 | 4c 58 2c 20 20 69 6e 63 | of BASD|LX, inc|
|00000a90| 6c 75 64 69 6e 67 20 74 | 68 65 0d 0a 20 20 20 20 |luding t|he.. |
|00000aa0| 20 20 20 20 20 20 73 6f | 75 72 63 65 20 63 6f 64 | so|urce cod|
|00000ab0| 65 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |e..... | |
|00000ac0| 54 68 65 73 65 20 72 6f | 75 74 69 6e 65 73 20 68 |These ro|utines h|
|00000ad0| 61 76 65 20 62 65 65 6e | 20 69 6e 63 6f 72 70 6f |ave been| incorpo|
|00000ae0| 72 61 74 65 64 20 69 6e | 74 6f 20 61 20 6c 69 62 |rated in|to a lib|
|00000af0| 72 61 72 79 20 74 6f 20 | 6d 61 6b 65 20 74 68 65 |rary to |make the|
|00000b00| 6d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 65 61 73 |m.. | eas|
|00000b10| 69 6c 79 20 61 63 63 65 | 73 73 69 62 6c 65 20 62 |ily acce|ssible b|
|00000b20| 79 20 74 68 65 20 44 4f | 53 20 4c 49 4e 4b 2e 45 |y the DO|S LINK.E|
|00000b30| 58 45 20 70 72 6f 67 72 | 61 6d 2e 20 20 20 41 6c |XE progr|am. Al|
|00000b40| 6c 20 79 6f 75 20 68 61 | 76 65 20 20 74 6f 0d 0a |l you ha|ve to..|
|00000b50| 20 20 20 20 20 20 20 20 | 20 20 64 6f 20 20 69 73 | | do is|
|00000b60| 20 20 63 6f 70 79 20 20 | 42 41 53 44 4c 58 2e 4c | copy |BASDLX.L|
|00000b70| 49 42 20 20 74 6f 20 74 | 68 65 20 64 69 72 65 63 |IB to t|he direc|
|00000b80| 74 6f 72 79 20 6f 72 20 | 64 69 73 6b 20 77 68 65 |tory or |disk whe|
|00000b90| 72 65 20 79 6f 75 20 6b | 65 65 70 0d 0a 20 20 20 |re you k|eep.. |
|00000ba0| 20 20 20 20 20 20 20 79 | 6f 75 72 20 6c 69 62 72 | y|our libr|
|00000bb0| 61 72 79 20 66 69 6c 65 | 73 2e 20 20 20 57 68 65 |ary file|s. Whe|
|00000bc0| 6e 20 79 6f 75 20 6c 69 | 6e 6b 20 79 6f 75 72 20 |n you li|nk your |
|00000bd0| 20 70 72 6f 67 72 61 6d | 73 20 74 68 61 74 20 75 | program|s that u|
|00000be0| 73 65 20 66 75 6e 63 2d | 0d 0a 20 20 20 20 20 20 |se func-|.. |
|00000bf0| 20 20 20 20 74 69 6f 6e | 73 20 20 66 72 6f 6d 20 | tion|s from |
|00000c00| 20 42 41 53 44 4c 58 2c | 20 20 20 62 65 20 73 75 | BASDLX,| be su|
|00000c10| 72 65 20 74 6f 20 73 70 | 65 63 69 66 79 3a 20 42 |re to sp|ecify: B|
|00000c20| 41 53 44 4c 58 20 77 68 | 65 6e 20 74 68 65 20 6c |ASDLX wh|en the l|
|00000c30| 69 6e 6b 65 72 0d 0a 20 | 20 20 20 20 20 20 20 20 |inker.. | |
|00000c40| 20 70 72 6f 6d 70 74 73 | 20 79 6f 75 20 66 6f 72 | prompts| you for|
|00000c50| 20 61 20 4c 69 62 72 61 | 72 79 20 5b 2e 4c 49 42 | a Libra|ry [.LIB|
|00000c60| 5d 20 66 69 6c 65 28 73 | 29 2e 20 20 50 6c 65 61 |] file(s|). Plea|
|00000c70| 73 65 20 72 65 66 65 72 | 20 20 74 6f 20 20 79 6f |se refer| to yo|
|00000c80| 75 72 0d 0a 20 20 20 20 | 20 20 20 20 20 20 44 4f |ur.. | DO|
|00000c90| 53 20 6d 61 6e 75 61 6c | 20 66 6f 72 20 6d 6f 72 |S manual| for mor|
|00000ca0| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 6f 6e |e inform|ation on|
|00000cb0| 20 74 68 65 20 4c 49 4e | 4b 2e 45 58 45 20 70 72 | the LIN|K.EXE pr|
|00000cc0| 6f 67 72 61 6d 2e 0d 0a | 0d 0a 0d 0a 0d 0a 20 20 |ogram...|...... |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ce0| 20 20 20 2d 2d 2d 20 1b | 47 42 41 53 44 4c 58 20 | --- .|GBASDLX |
|00000cf0| 20 20 56 65 72 73 69 6f | 6e 20 31 2e 32 20 20 20 | Versio|n 1.2 |
|00000d00| 46 65 62 72 75 61 72 79 | 20 31 39 38 37 1b 48 20 |February| 1987.H |
|00000d10| 2d 2d 2d 0d 0a 0c 1b 41 | 48 0a 20 20 20 20 20 20 |---....A|H. |
|00000d20| 20 20 20 20 20 20 20 1b | 47 42 41 53 44 4c 58 20 | .|GBASDLX |
|00000d30| 28 43 29 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |(C) Copy|right 19|
|00000d40| 38 36 2d 38 37 20 42 79 | 20 47 75 73 74 61 76 6f |86-87 By| Gustavo|
|00000d50| 20 56 65 72 64 75 6e 20 | 20 20 20 20 20 20 50 61 | Verdun | Pa|
|00000d60| 67 65 20 32 1b 48 1b 41 | 0c 0a 0d 0a 20 20 20 20 |ge 2.H.A|.... |
|00000d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d90| 1b 47 53 70 65 63 69 61 | 6c 20 4e 6f 74 65 73 1b |.GSpecia|l Notes.|
|00000da0| 48 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |H.... | T|
|00000db0| 68 65 20 20 66 75 6e 63 | 74 69 6f 6e 73 20 20 70 |he func|tions p|
|00000dc0| 72 6f 76 69 64 65 64 20 | 20 69 6e 20 74 68 69 73 |rovided | in this|
|00000dd0| 20 6c 69 62 72 61 72 79 | 20 61 72 65 20 61 76 61 | library| are ava|
|00000de0| 69 6c 61 62 6c 65 20 74 | 6f 20 79 6f 75 20 62 79 |ilable t|o you by|
|00000df0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 75 73 69 6e |.. | usin|
|00000e00| 67 20 74 68 65 20 43 41 | 4c 4c 20 63 6f 6d 6d 61 |g the CA|LL comma|
|00000e10| 6e 64 20 66 72 6f 6d 20 | 63 6f 6d 70 69 6c 65 64 |nd from |compiled|
|00000e20| 20 62 61 73 69 63 2e 20 | 41 6c 6c 20 6e 75 6d 65 | basic. |All nume|
|00000e30| 72 69 63 20 76 61 72 69 | 61 62 6c 65 73 0d 0a 20 |ric vari|ables.. |
|00000e40| 20 20 20 20 20 20 20 20 | 20 70 61 73 73 65 64 20 | | passed |
|00000e50| 61 73 20 61 72 67 75 6d | 65 6e 74 73 20 74 6f 20 |as argum|ents to |
|00000e60| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 6d 75 |the func|tions mu|
|00000e70| 73 74 20 20 64 65 66 69 | 6e 65 64 20 20 61 73 20 |st defi|ned as |
|00000e80| 20 69 6e 74 65 67 65 72 | 73 2e 0d 0a 20 20 20 20 | integer|s... |
|00000e90| 20 20 20 20 20 20 54 68 | 69 73 20 6d 65 61 6e 73 | Th|is means|
|00000ea0| 20 74 68 61 74 20 79 6f | 75 20 63 61 6e 20 65 69 | that yo|u can ei|
|00000eb0| 74 68 65 72 20 67 6c 6f | 62 61 6c 6c 79 20 73 65 |ther glo|bally se|
|00000ec0| 74 20 61 6c 6c 20 6e 75 | 6d 65 72 69 63 20 76 61 |t all nu|meric va|
|00000ed0| 72 69 61 62 6c 65 73 0d | 0a 20 20 20 20 20 20 20 |riables.|. |
|00000ee0| 20 20 20 74 6f 20 69 6e | 74 65 67 65 72 73 20 62 | to in|tegers b|
|00000ef0| 79 20 69 73 73 75 69 6e | 67 20 74 68 65 20 44 45 |y issuin|g the DE|
|00000f00| 46 49 4e 54 20 41 2d 5a | 20 63 6f 6d 6d 61 6e 64 |FINT A-Z| command|
|00000f10| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00000f20| 67 20 6f 66 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |g of.. | |
|00000f30| 79 6f 75 72 20 70 72 6f | 67 72 61 6d 20 6f 72 2c |your pro|gram or,|
|00000f40| 20 20 79 6f 75 20 63 61 | 6e 20 64 65 63 6c 61 72 | you ca|n declar|
|00000f50| 65 20 61 20 73 69 6e 67 | 6c 65 20 76 61 72 69 61 |e a sing|le varia|
|00000f60| 62 6c 65 20 61 73 20 69 | 6e 74 65 67 65 72 20 62 |ble as i|nteger b|
|00000f70| 79 0d 0a 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |y.. | add|
|00000f80| 69 6e 67 20 61 20 22 25 | 22 20 73 79 6d 62 6f 6c |ing a "%|" symbol|
|00000f90| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 69 | at the |end of i|
|00000fa0| 74 73 20 6e 61 6d 65 2e | 20 28 69 2e 65 2e 20 20 |ts name.| (i.e. |
|00000fb0| 49 25 2c 20 20 74 68 69 | 73 20 77 69 6c 6c 0d 0a |I%, thi|s will..|
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 64 65 63 6c 61 72 | | declar|
|00000fd0| 65 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 20 61 |e the va|riable a|
|00000fe0| 73 20 62 65 69 6e 67 20 | 69 6e 74 65 67 65 72 29 |s being |integer)|
|00000ff0| 2e 20 49 20 77 69 6c 6c | 20 61 6c 77 61 79 73 20 |. I will| always |
|00001000| 61 64 64 20 74 68 65 20 | 22 25 22 0d 0a 20 20 20 |add the |"%".. |
|00001010| 20 20 20 20 20 20 20 73 | 79 6d 62 6f 6c 20 20 61 | s|ymbol a|
|00001020| 74 20 20 74 68 65 20 20 | 65 6e 64 20 6f 66 20 61 |t the |end of a|
|00001030| 6c 6c 20 6d 79 20 6e 75 | 6d 65 72 69 63 20 76 61 |ll my nu|meric va|
|00001040| 72 69 61 62 6c 65 73 20 | 69 6e 20 61 6c 6c 20 6f |riables |in all o|
|00001050| 66 20 6d 79 20 65 78 2d | 0d 0a 20 20 20 20 20 20 |f my ex-|.. |
|00001060| 20 20 20 20 61 6d 70 6c | 65 73 2c 20 74 6f 20 72 | ampl|es, to r|
|00001070| 65 6d 69 6e 64 20 79 6f | 75 20 74 68 61 74 20 74 |emind yo|u that t|
|00001080| 68 65 79 20 4d 55 53 54 | 20 62 65 20 69 6e 74 65 |hey MUST| be inte|
|00001090| 67 65 72 73 2e 0d 0a 0d | 0a 20 20 20 20 20 20 20 |gers....|. |
|000010a0| 20 20 20 54 68 65 20 76 | 61 72 69 61 62 6c 65 20 | The v|ariable |
|000010b0| 6e 61 6d 65 73 20 75 73 | 65 64 20 69 6e 20 6d 79 |names us|ed in my|
|000010c0| 20 65 78 61 6d 70 6c 65 | 73 20 64 6f 6e 27 74 20 | example|s don't |
|000010d0| 68 61 76 65 20 74 6f 20 | 20 62 65 20 20 65 78 61 |have to | be exa|
|000010e0| 63 74 6c 79 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ctly.. | |
|000010f0| 74 68 65 20 20 73 61 6d | 65 2e 20 20 79 6f 75 20 |the sam|e. you |
|00001100| 20 6d 61 79 20 20 63 68 | 6f 6f 73 65 20 20 6f 74 | may ch|oose ot|
|00001110| 68 65 72 20 20 6e 61 6d | 65 73 20 74 68 61 74 20 |her nam|es that |
|00001120| 77 6f 75 6c 64 20 62 65 | 20 6d 6f 72 65 20 61 70 |would be| more ap|
|00001130| 2d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 70 72 6f |-.. | pro|
|00001140| 70 72 69 61 74 65 2e 20 | 6b 65 65 70 20 69 6e 20 |priate. |keep in |
|00001150| 6d 69 6e 64 20 74 68 61 | 74 20 74 68 65 20 76 61 |mind tha|t the va|
|00001160| 72 69 61 62 6c 65 20 74 | 79 70 65 73 20 64 6f 20 |riable t|ypes do |
|00001170| 68 61 76 65 20 74 6f 20 | 62 65 20 74 68 65 0d 0a |have to |be the..|
|00001180| 20 20 20 20 20 20 20 20 | 20 20 73 61 6d 65 20 69 | | same i|
|00001190| 6e 20 74 68 65 20 61 72 | 67 75 6d 65 6e 74 20 6c |n the ar|gument l|
|000011a0| 69 73 74 20 28 69 2e 65 | 2e 20 73 74 72 69 6e 67 |ist (i.e|. string|
|000011b0| 73 20 6d 75 73 74 20 62 | 65 20 73 74 72 69 6e 67 |s must b|e string|
|000011c0| 73 2c 20 69 6e 74 65 67 | 65 72 73 0d 0a 20 20 20 |s, integ|ers.. |
|000011d0| 20 20 20 20 20 20 20 6d | 75 73 74 20 62 65 20 69 | m|ust be i|
|000011e0| 6e 74 65 67 65 72 73 29 | 2e 0d 0a 0d 0a 20 20 20 |ntegers)|..... |
|000011f0| 20 20 20 20 20 20 20 41 | 73 20 49 20 6d 65 6e 74 | A|s I ment|
|00001200| 69 6f 6e 65 64 20 62 65 | 66 6f 72 65 20 49 20 68 |ioned be|fore I h|
|00001210| 61 76 65 20 74 65 73 74 | 65 64 20 74 68 65 73 65 |ave test|ed these|
|00001220| 20 66 75 6e 63 74 69 6f | 6e 73 20 61 6e 64 20 74 | functio|ns and t|
|00001230| 68 65 79 2c 20 20 74 6f | 0d 0a 20 20 20 20 20 20 |hey, to|.. |
|00001240| 20 20 20 20 74 68 65 20 | 62 65 73 74 20 6f 66 20 | the |best of |
|00001250| 6d 79 20 6b 6e 6f 77 6c | 65 64 67 65 2c 20 20 77 |my knowl|edge, w|
|00001260| 6f 72 6b 20 62 75 67 20 | 66 72 65 65 2e 20 20 42 |ork bug |free. B|
|00001270| 75 74 2c 20 20 69 66 20 | 79 6f 75 20 68 61 70 70 |ut, if |you happ|
|00001280| 65 6e 20 74 6f 0d 0a 20 | 20 20 20 20 20 20 20 20 |en to.. | |
|00001290| 20 66 69 6e 64 20 61 6e | 79 20 62 75 67 73 20 49 | find an|y bugs I|
|000012a0| 27 6c 6c 20 62 65 20 68 | 61 70 70 79 20 74 6f 20 |'ll be h|appy to |
|000012b0| 66 69 78 20 74 68 65 6d | 2e 20 20 42 65 20 73 75 |fix them|. Be su|
|000012c0| 72 65 20 74 6f 20 20 63 | 68 65 63 6b 20 20 74 68 |re to c|heck th|
|000012d0| 61 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 79 6f |at.. | yo|
|000012e0| 75 20 20 61 72 65 20 20 | 43 41 4c 4c 69 6e 67 20 |u are |CALLing |
|000012f0| 20 74 68 65 20 20 66 75 | 6e 63 74 69 6f 6e 73 20 | the fu|nctions |
|00001300| 70 72 6f 70 65 72 6c 79 | 2e 20 20 54 68 61 74 20 |properly|. That |
|00001310| 69 73 20 74 68 61 74 20 | 79 6f 75 20 61 72 65 0d |is that |you are.|
|00001320| 0a 20 20 20 20 20 20 20 | 20 20 20 73 65 6e 64 69 |. | sendi|
|00001330| 6e 67 20 74 68 65 20 63 | 6f 72 72 65 63 74 20 61 |ng the c|orrect a|
|00001340| 72 67 75 6d 65 6e 74 73 | 20 74 6f 20 74 68 65 20 |rguments| to the |
|00001350| 66 75 6e 63 74 69 6f 6e | 2e 20 20 4f 6e 65 20 6f |function|. One o|
|00001360| 66 20 20 74 68 65 20 20 | 6d 6f 73 74 0d 0a 20 20 |f the |most.. |
|00001370| 20 20 20 20 20 20 20 20 | 63 6f 6d 6d 6f 6e 20 20 | |common |
|00001380| 65 72 72 6f 72 20 20 74 | 68 61 74 20 20 6f 63 63 |error t|hat occ|
|00001390| 75 72 73 20 20 69 73 20 | 77 68 65 6e 20 74 68 65 |urs is |when the|
|000013a0| 20 63 61 6c 6c 69 6e 67 | 20 70 72 6f 67 72 61 6d | calling| program|
|000013b0| 20 73 65 6e 64 73 20 74 | 6f 0d 0a 20 20 20 20 20 | sends t|o.. |
|000013c0| 20 20 20 20 20 74 68 65 | 20 66 75 6e 63 74 69 6f | the| functio|
|000013d0| 6e 20 61 6e 20 69 6e 63 | 6f 72 72 65 63 74 20 76 |n an inc|orrect v|
|000013e0| 61 72 69 61 62 6c 65 20 | 74 79 70 65 2e 20 20 52 |ariable |type. R|
|000013f0| 65 6d 65 6d 62 65 72 20 | 20 74 68 61 74 20 20 6e |emember | that n|
|00001400| 75 6d 65 72 69 63 0d 0a | 20 20 20 20 20 20 20 20 |umeric..| |
|00001410| 20 20 76 61 72 69 61 62 | 6c 65 73 20 6d 75 73 74 | variab|les must|
|00001420| 20 62 65 20 64 65 63 6c | 61 72 65 64 20 69 6e 74 | be decl|ared int|
|00001430| 65 67 65 72 2e 0d 0a 0d | 0a 20 20 20 20 20 20 20 |eger....|. |
|00001440| 20 20 20 53 69 6e 63 65 | 20 20 74 68 69 73 20 20 | Since| this |
|00001450| 69 73 20 20 74 68 65 20 | 73 65 63 6f 6e 64 20 6f |is the |second o|
|00001460| 66 20 6d 61 6e 79 20 72 | 65 6c 65 61 73 65 73 20 |f many r|eleases |
|00001470| 6f 66 20 42 41 53 44 4c | 58 20 49 27 6d 20 73 75 |of BASDL|X I'm su|
|00001480| 72 65 20 49 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |re I.. | |
|00001490| 77 69 6c 6c 20 67 65 74 | 20 61 20 6c 6f 74 20 6f |will get| a lot o|
|000014a0| 66 20 63 6f 6d 6d 65 6e | 74 73 20 66 72 6f 6d 20 |f commen|ts from |
|000014b0| 79 6f 75 2e 20 20 53 6f | 20 70 6c 65 61 73 65 20 |you. So| please |
|000014c0| 64 6f 6e 27 74 20 68 65 | 73 69 74 61 74 65 20 74 |don't he|sitate t|
|000014d0| 6f 0d 0a 20 20 20 20 20 | 20 20 20 20 20 69 6e 66 |o.. | inf|
|000014e0| 6f 72 6d 20 6d 65 20 6f | 66 20 61 6e 79 74 68 69 |orm me o|f anythi|
|000014f0| 6e 67 21 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |ng! If t|here is |
|00001500| 73 6f 6d 65 74 68 69 6e | 67 20 79 6f 75 20 64 6f |somethin|g you do|
|00001510| 6e 27 74 20 6c 69 6b 65 | 20 61 62 6f 75 74 0d 0a |n't like| about..|
|00001520| 20 20 20 20 20 20 20 20 | 20 20 42 41 53 44 4c 58 | | BASDLX|
|00001530| 20 20 74 68 65 6e 20 20 | 70 6c 65 61 73 65 20 64 | then |please d|
|00001540| 6f 6e 27 74 20 72 65 66 | 72 61 69 6e 20 66 72 6f |on't ref|rain fro|
|00001550| 6d 20 74 65 6c 6c 69 6e | 67 20 6d 65 2c 20 20 49 |m tellin|g me, I|
|00001560| 27 6c 6c 20 62 65 20 6d | 6f 72 65 0d 0a 20 20 20 |'ll be m|ore.. |
|00001570| 20 20 20 20 20 20 20 74 | 68 61 6e 20 68 61 70 70 | t|han happ|
|00001580| 79 20 74 6f 20 66 69 78 | 20 69 74 21 0d 0a 0d 0a |y to fix| it!....|
|00001590| 20 20 20 20 20 20 20 20 | 20 20 50 6c 65 61 73 65 | | Please|
|000015a0| 20 72 65 66 65 72 20 61 | 6e 79 20 71 75 65 73 74 | refer a|ny quest|
|000015b0| 69 6f 6e 73 2c 20 20 63 | 6f 6d 6d 65 6e 74 73 2c |ions, c|omments,|
|000015c0| 20 20 72 65 71 75 65 73 | 74 73 20 66 6f 72 20 6e | reques|ts for n|
|000015d0| 65 77 20 72 6f 75 74 69 | 6e 65 73 0d 0a 20 20 20 |ew routi|nes.. |
|000015e0| 20 20 20 20 20 20 20 6f | 72 20 63 6f 6e 74 72 69 | o|r contri|
|000015f0| 62 75 74 69 6f 6e 73 20 | 74 6f 20 74 68 65 20 66 |butions |to the f|
|00001600| 6f 6c 6c 6f 77 69 6e 67 | 20 61 64 64 72 65 73 73 |ollowing| address|
|00001610| 3a 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |:.... | |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001630| 20 20 20 20 20 20 20 47 | 75 73 74 61 76 6f 20 20 | G|ustavo |
|00001640| 48 2e 20 56 65 72 64 75 | 6e 0d 0a 20 20 20 20 20 |H. Verdu|n.. |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 36 34 32 | | 642|
|00001670| 34 20 48 6f 6c 6c 69 6e | 73 20 44 72 69 76 65 0d |4 Hollin|s Drive.|
|00001680| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016a0| 20 20 20 42 65 74 68 65 | 73 64 61 2c 20 4d 44 20 | Bethe|sda, MD |
|000016b0| 32 30 38 31 37 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |20817...|........|
|000016c0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 20 20 20 |........|..... |
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016e0| 20 20 2d 2d 2d 20 1b 47 | 42 41 53 44 4c 58 20 20 | --- .G|BASDLX |
|000016f0| 20 56 65 72 73 69 6f 6e | 20 31 2e 32 20 20 20 46 | Version| 1.2 F|
|00001700| 65 62 72 75 61 72 79 20 | 31 39 38 37 1b 48 20 2d |ebruary |1987.H -|
|00001710| 2d 2d 0d 0a 0c 1b 41 48 | 0a 20 20 20 20 20 20 20 |--....AH|. |
|00001720| 20 20 20 20 20 20 1b 47 | 42 41 53 44 4c 58 20 28 | .G|BASDLX (|
|00001730| 43 29 20 43 6f 70 79 72 | 69 67 68 74 20 31 39 38 |C) Copyr|ight 198|
|00001740| 36 2d 38 37 20 42 79 20 | 47 75 73 74 61 76 6f 20 |6-87 By |Gustavo |
|00001750| 56 65 72 64 75 6e 20 20 | 20 20 20 20 20 50 61 67 |Verdun | Pag|
|00001760| 65 20 33 1b 48 1b 41 0c | 0a 0d 0a 20 20 20 20 20 |e 3.H.A.|... |
|00001770| 20 20 20 20 20 46 75 6e | 63 74 69 6f 6e 20 4e 61 | Fun|ction Na|
|00001780| 6d 65 3a 20 1b 47 42 53 | 4f 52 54 4e 1b 48 0d 0a |me: .GBS|ORTN.H..|
|00001790| 20 20 20 20 20 20 20 20 | 20 20 41 72 67 75 6d 65 | | Argume|
|000017a0| 6e 74 73 20 20 20 20 3a | 20 28 1b 34 4e 75 6d 5f |nts :| (.4Num_|
|000017b0| 6f 66 5f 65 6c 65 6d 65 | 6e 74 73 2c 49 6e 74 65 |of_eleme|nts,Inte|
|000017c0| 67 65 72 5f 61 72 72 61 | 79 25 28 73 74 61 72 74 |ger_arra|y%(start|
|000017d0| 29 1b 35 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |).5).. | |
|000017e0| 74 79 70 65 20 20 20 20 | 20 20 20 20 20 3a 20 69 |type | : i|
|000017f0| 6e 74 65 67 65 72 20 61 | 72 72 61 79 20 73 65 72 |nteger a|rray ser|
|00001800| 76 69 63 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |vice.. | |
|00001810| 50 75 72 70 6f 73 65 20 | 20 20 20 20 20 3a 20 53 |Purpose | : S|
|00001820| 6f 72 74 73 20 61 6e 20 | 69 6e 74 65 67 65 72 20 |orts an |integer |
|00001830| 61 72 72 61 79 20 69 6e | 20 61 73 63 65 6e 64 69 |array in| ascendi|
|00001840| 6e 67 20 6f 72 64 65 72 | 20 77 69 74 68 0d 0a 20 |ng order| with.. |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001860| 20 20 20 20 20 20 20 20 | 6e 65 67 61 74 69 76 65 | |negative|
|00001870| 20 6e 75 6d 62 65 72 73 | 20 61 70 70 65 61 72 69 | numbers| appeari|
|00001880| 6e 67 20 61 74 20 74 68 | 65 20 65 6e 64 20 20 69 |ng at th|e end i|
|00001890| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.. | |
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 73 63 65 | | asce|
|000018b0| 6e 64 69 6e 67 20 6f 72 | 64 65 72 2e 0d 0a 0d 0a |nding or|der.....|
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 44 65 73 63 72 69 | | Descri|
|000018d0| 70 74 69 6f 6e 3a 0d 0a | 20 20 20 20 20 20 20 20 |ption:..| |
|000018e0| 20 20 49 6e 74 65 67 65 | 72 20 20 76 61 72 69 61 | Intege|r varia|
|000018f0| 62 6c 65 73 20 20 69 6e | 20 20 42 41 53 49 43 20 |bles in| BASIC |
|00001900| 63 61 6e 20 63 6f 6e 74 | 61 69 6e 20 6e 75 6d 62 |can cont|ain numb|
|00001910| 65 72 73 20 62 65 74 77 | 65 65 6e 20 2d 33 32 2c |ers betw|een -32,|
|00001920| 37 36 38 0d 0a 20 20 20 | 20 20 20 20 20 20 20 61 |768.. | a|
|00001930| 6e 64 20 33 32 2c 37 36 | 37 2e 20 20 54 68 69 73 |nd 32,76|7. This|
|00001940| 20 66 75 6e 63 74 69 6f | 6e 20 64 6f 65 73 20 6e | functio|n does n|
|00001950| 6f 74 20 64 69 73 74 69 | 6e 67 75 69 73 68 20 62 |ot disti|nguish b|
|00001960| 65 74 77 65 65 6e 20 20 | 6e 65 67 61 74 69 76 65 |etween |negative|
|00001970| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6f 72 20 70 |.. | or p|
|00001980| 6f 73 69 74 69 76 65 20 | 6e 75 6d 62 65 72 73 2e |ositive |numbers.|
|00001990| 20 49 74 20 77 69 6c 6c | 20 73 6f 72 74 20 74 68 | It will| sort th|
|000019a0| 65 20 65 6c 65 6d 65 6e | 74 73 20 69 6e 20 61 73 |e elemen|ts in as|
|000019b0| 63 65 6e 64 69 6e 67 20 | 6f 72 64 65 72 0d 0a 20 |cending |order.. |
|000019c0| 20 20 20 20 20 20 20 20 | 20 77 69 74 68 20 20 61 | | with a|
|000019d0| 6c 6c 20 20 74 68 65 20 | 6e 65 67 61 74 69 76 65 |ll the |negative|
|000019e0| 20 6e 75 6d 62 65 72 73 | 20 28 69 66 20 65 78 69 | numbers| (if exi|
|000019f0| 73 74 69 6e 67 29 20 61 | 70 70 65 61 72 69 6e 67 |sting) a|ppearing|
|00001a00| 20 61 66 74 65 72 20 74 | 68 65 0d 0a 20 20 20 20 | after t|he.. |
|00001a10| 20 20 20 20 20 20 70 6f | 73 69 74 69 76 65 20 6e | po|sitive n|
|00001a20| 75 6d 62 65 72 73 20 69 | 6e 20 61 73 63 65 6e 64 |umbers i|n ascend|
|00001a30| 69 6e 67 20 6f 72 64 65 | 72 2e 20 20 4d 61 6b 65 |ing orde|r. Make|
|00001a40| 20 73 75 72 65 20 74 68 | 61 74 20 74 68 65 20 61 | sure th|at the a|
|00001a50| 72 72 61 79 20 69 73 0d | 0a 20 20 20 20 20 20 20 |rray is.|. |
|00001a60| 20 20 20 6f 66 20 74 79 | 70 65 20 69 6e 74 65 67 | of ty|pe integ|
|00001a70| 65 72 2e 20 55 6e 70 72 | 65 64 69 63 74 61 62 6c |er. Unpr|edictabl|
|00001a80| 65 20 72 65 73 75 6c 74 | 73 20 6d 61 79 20 6f 63 |e result|s may oc|
|00001a90| 63 75 72 20 69 66 20 6e | 6f 74 21 0d 0a 0d 0a 20 |cur if n|ot!.... |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 45 78 61 6d 70 6c 65 | | Example|
|00001ab0| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 64 69 6d |:.. | dim|
|00001ac0| 20 61 25 28 33 30 30 29 | 3a 70 72 69 6e 74 20 22 | a%(300)|:print "|
|00001ad0| 41 72 72 61 79 20 42 65 | 66 6f 72 65 20 73 6f 72 |Array Be|fore sor|
|00001ae0| 74 3a 22 0d 0a 20 20 20 | 20 20 20 20 20 20 20 66 |t:".. | f|
|00001af0| 6f 72 20 69 25 3d 30 20 | 74 6f 20 33 30 30 3a 61 |or i%=0 |to 300:a|
|00001b00| 25 28 69 25 29 3d 69 6e | 74 28 72 6e 64 28 31 29 |%(i%)=in|t(rnd(1)|
|00001b10| 2a 33 30 30 30 30 29 3a | 70 72 69 6e 74 20 61 25 |*30000):|print a%|
|00001b20| 28 69 25 29 2c 3a 6e 65 | 78 74 0d 0a 20 20 20 20 |(i%),:ne|xt.. |
|00001b30| 20 20 20 20 20 20 65 6e | 75 6d 25 3d 33 30 31 3a | en|um%=301:|
|00001b40| 63 61 6c 6c 20 62 73 6f | 72 74 6e 28 65 6e 75 6d |call bso|rtn(enum|
|00001b50| 25 2c 61 25 28 30 29 29 | 0d 0a 20 20 20 20 20 20 |%,a%(0))|.. |
|00001b60| 20 20 20 20 72 65 6d 20 | 65 6e 75 6d 25 3d 33 30 | rem |enum%=30|
|00001b70| 31 20 62 65 63 61 75 73 | 65 20 74 68 65 72 65 20 |1 becaus|e there |
|00001b80| 61 72 65 20 33 30 31 20 | 65 6c 65 6d 65 6e 74 73 |are 301 |elements|
|00001b90| 20 69 6e 20 74 68 65 20 | 61 72 72 61 79 20 28 30 | in the |array (0|
|00001ba0| 2d 33 30 30 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |-300).. | |
|00001bb0| 20 70 72 69 6e 74 20 22 | 41 72 72 61 79 20 41 66 | print "|Array Af|
|00001bc0| 74 65 72 20 73 6f 72 74 | 3a 22 3a 66 6f 72 20 69 |ter sort|:":for i|
|00001bd0| 25 3d 30 20 74 6f 20 33 | 30 30 3a 70 72 69 6e 74 |%=0 to 3|00:print|
|00001be0| 20 61 25 28 69 25 29 2c | 3a 6e 65 78 74 0d 0a 20 | a%(i%),|:next.. |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 72 65 6d 20 74 68 65 | | rem the|
|00001c00| 20 6c 69 73 74 20 73 68 | 6f 75 6c 64 20 62 65 20 | list sh|ould be |
|00001c10| 73 6f 72 74 65 64 20 69 | 6e 20 61 73 63 65 6e 64 |sorted i|n ascend|
|00001c20| 69 6e 67 20 6e 75 6d 65 | 72 69 63 61 6c 20 6f 72 |ing nume|rical or|
|00001c30| 64 65 72 21 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |der!....| |
|00001c40| 20 20 46 75 6e 63 74 69 | 6f 6e 20 4e 61 6d 65 3a | Functi|on Name:|
|00001c50| 20 1b 47 42 53 4f 52 54 | 53 1b 48 0d 0a 20 20 20 | .GBSORT|S.H.. |
|00001c60| 20 20 20 20 20 20 20 41 | 72 67 75 6d 65 6e 74 73 | A|rguments|
|00001c70| 20 20 20 20 3a 20 28 1b | 34 4e 75 6d 5f 6f 66 5f | : (.|4Num_of_|
|00001c80| 65 6c 65 6d 65 6e 74 73 | 25 2c 41 72 72 61 79 24 |elements|%,Array$|
|00001c90| 28 73 74 61 72 74 5f 70 | 6f 73 69 74 69 6f 6e 29 |(start_p|osition)|
|00001ca0| 1b 35 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |.5).. | T|
|00001cb0| 79 70 65 20 20 20 20 20 | 20 20 20 20 3a 20 53 74 |ype | : St|
|00001cc0| 72 69 6e 67 20 61 72 72 | 61 79 20 73 65 72 76 69 |ring arr|ay servi|
|00001cd0| 63 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 50 75 |ce.. | Pu|
|00001ce0| 72 70 6f 73 65 20 20 20 | 20 20 20 3a 20 53 6f 72 |rpose | : Sor|
|00001cf0| 74 73 20 61 20 73 74 72 | 69 6e 67 20 61 72 72 61 |ts a str|ing arra|
|00001d00| 79 20 69 6e 20 61 73 63 | 65 6e 64 69 6e 67 20 61 |y in asc|ending a|
|00001d10| 6c 70 68 61 62 65 74 69 | 63 61 6c 0d 0a 20 20 20 |lphabeti|cal.. |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d30| 20 20 20 20 20 20 6f 72 | 64 65 72 2e 0d 0a 0d 0a | or|der.....|
|00001d40| 20 20 20 20 20 20 20 20 | 20 20 44 65 73 63 72 69 | | Descri|
|00001d50| 70 74 69 6f 6e 3a 0d 0a | 20 20 20 20 20 20 20 20 |ption:..| |
|00001d60| 20 20 54 68 65 20 20 66 | 69 72 73 74 20 61 72 67 | The f|irst arg|
|00001d70| 75 6d 65 6e 74 20 73 68 | 6f 75 6c 64 20 63 6f 6e |ument sh|ould con|
|00001d80| 74 61 69 6e 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |tain the| number |
|00001d90| 6f 66 20 65 6c 65 6d 65 | 6e 74 73 20 74 6f 20 73 |of eleme|nts to s|
|00001da0| 6f 72 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 69 |ort.. | i|
|00001db0| 6e 20 74 68 65 20 61 72 | 72 61 79 2e 20 54 68 65 |n the ar|ray. The|
|00001dc0| 20 73 65 63 6f 6e 64 20 | 61 72 67 75 6d 65 6e 74 | second |argument|
|00001dd0| 20 69 73 20 74 68 65 20 | 61 72 72 61 79 20 69 74 | is the |array it|
|00001de0| 73 65 6c 66 2e 20 62 65 | 20 73 75 72 65 20 74 6f |self. be| sure to|
|00001df0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 73 70 65 63 |.. | spec|
|00001e00| 69 66 79 20 20 20 74 68 | 65 20 20 20 73 74 61 72 |ify th|e star|
|00001e10| 74 69 6e 67 20 20 20 70 | 6f 73 69 74 69 6f 6e 20 |ting p|osition |
|00001e20| 20 20 69 6e 20 20 20 20 | 74 68 65 20 20 20 20 61 | in |the a|
|00001e30| 72 72 61 79 20 20 20 20 | 5b 69 2e 65 2e 0d 0a 20 |rray |[i.e... |
|00001e40| 20 20 20 20 20 20 20 20 | 20 42 53 4f 52 54 53 28 | | BSORTS(|
|00001e50| 65 6c 65 6d 65 6e 74 73 | 25 2c 61 24 28 30 29 29 |elements|%,a$(0))|
|00001e60| 5d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 49 4d 50 |].. | IMP|
|00001e70| 4f 52 54 41 4e 54 3a 20 | 20 41 6c 6c 20 20 6f 66 |ORTANT: | All of|
|00001e80| 20 20 74 68 65 20 20 65 | 6c 65 6d 65 6e 74 73 20 | the e|lements |
|00001e90| 20 69 6e 20 20 74 68 65 | 20 61 72 72 61 79 20 4d | in the| array M|
|00001ea0| 55 53 54 20 68 61 76 65 | 20 65 71 75 61 6c 0d 0a |UST have| equal..|
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 6c 65 6e 67 74 68 | | length|
|00001ec0| 73 2c 20 69 66 20 6e 6f | 74 2c 20 75 6e 70 72 65 |s, if no|t, unpre|
|00001ed0| 64 69 63 74 61 62 6c 65 | 20 72 65 73 75 6c 74 73 |dictable| results|
|00001ee0| 20 77 69 6c 6c 20 6f 63 | 63 75 72 20 74 6f 20 42 | will oc|cur to B|
|00001ef0| 41 53 49 43 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ASIC....| |
|00001f00| 20 20 45 78 61 6d 70 6c | 65 3a 0d 0a 20 20 20 20 | Exampl|e:.. |
|00001f10| 20 20 20 20 20 20 64 69 | 6d 20 61 24 28 31 30 29 | di|m a$(10)|
|00001f20| 3a 61 24 28 30 29 22 46 | 69 72 73 74 22 3a 61 24 |:a$(0)"F|irst":a$|
|00001f30| 28 31 29 3d 22 53 65 63 | 6f 6e 64 22 3a 61 24 28 |(1)="Sec|ond":a$(|
|00001f40| 32 29 3d 22 54 68 69 72 | 64 22 0d 0a 20 20 20 20 |2)="Thir|d".. |
|00001f50| 20 20 20 20 20 20 61 24 | 28 33 29 3d 22 46 6f 75 | a$|(3)="Fou|
|00001f60| 72 74 68 22 3a 61 24 28 | 34 29 3d 22 46 69 66 74 |rth":a$(|4)="Fift|
|00001f70| 68 22 3a 61 24 28 35 29 | 3d 22 53 69 78 74 68 22 |h":a$(5)|="Sixth"|
|00001f80| 3a 61 24 28 36 29 3d 22 | 53 65 76 65 6e 74 68 22 |:a$(6)="|Seventh"|
|00001f90| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 61 24 28 37 |.. | a$(7|
|00001fa0| 29 3d 22 45 69 67 68 74 | 68 22 3a 61 24 28 38 29 |)="Eight|h":a$(8)|
|00001fb0| 3d 22 4e 69 6e 74 68 22 | 3a 61 24 28 39 29 3d 22 |="Ninth"|:a$(9)="|
|00001fc0| 54 65 6e 74 68 22 0d 0a | 20 20 20 20 20 20 20 20 |Tenth"..| |
|00001fd0| 20 20 66 6f 72 20 69 25 | 3d 30 20 74 6f 20 39 3a | for i%|=0 to 9:|
|00001fe0| 62 24 3d 73 70 61 63 65 | 24 28 31 30 29 3a 63 61 |b$=space|$(10):ca|
|00001ff0| 6c 6c 20 73 65 74 6c 28 | 61 24 28 69 25 29 2c 62 |ll setl(|a$(i%),b|
|00002000| 24 29 3a 61 24 28 69 25 | 29 3d 62 24 3a 6e 65 78 |$):a$(i%|)=b$:nex|
|00002010| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 72 65 6d |t.. | rem|
|00002020| 20 74 68 65 20 61 62 6f | 76 65 20 6c 69 6e 65 20 | the abo|ve line |
|00002030| 77 69 6c 6c 20 6d 61 6b | 65 20 61 6c 6c 20 6f 66 |will mak|e all of|
|00002040| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 73 20 69 6e | the ele|ments in|
|00002050| 20 74 68 65 20 61 72 72 | 61 79 0d 0a 20 20 20 20 | the arr|ay.. |
|00002060| 20 20 20 20 20 20 72 65 | 6d 20 68 61 76 65 20 65 | re|m have e|
|00002070| 71 75 61 6c 20 6c 65 6e | 67 74 68 73 2e 0d 0a 20 |qual len|gths... |
|00002080| 20 20 20 20 20 20 20 20 | 20 70 72 69 6e 74 20 22 | | print "|
|00002090| 41 72 72 61 79 20 62 65 | 66 6f 72 65 20 73 6f 72 |Array be|fore sor|
|000020a0| 74 3a 22 3a 66 6f 72 20 | 69 25 3d 30 20 74 6f 20 |t:":for |i%=0 to |
|000020b0| 39 3a 70 72 69 6e 74 20 | 61 24 28 69 25 29 3a 6e |9:print |a$(i%):n|
|000020c0| 65 78 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 65 |ext.. | e|
|000020d0| 6e 75 6d 25 3d 31 30 3a | 63 61 6c 6c 20 62 73 6f |num%=10:|call bso|
|000020e0| 72 74 73 28 65 6e 75 6d | 25 2c 61 24 28 30 29 29 |rts(enum|%,a$(0))|
|000020f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 72 65 6d 20 |.. | rem |
|00002100| 65 6e 75 6d 25 3d 31 30 | 20 62 65 63 61 75 73 65 |enum%=10| because|
|00002110| 20 74 68 65 72 65 20 61 | 72 65 20 31 30 20 65 6c | there a|re 10 el|
|00002120| 65 6d 65 6e 74 73 20 20 | 69 6e 20 20 74 68 65 20 |ements |in the |
|00002130| 20 61 72 72 61 79 20 20 | 28 30 2d 39 29 0d 0a 20 | array |(0-9).. |
|00002140| 20 20 20 20 20 20 20 20 | 20 70 72 69 6e 74 20 22 | | print "|
|00002150| 41 72 72 61 79 20 41 66 | 74 65 72 20 73 6f 72 74 |Array Af|ter sort|
|00002160| 3a 22 3a 66 6f 72 20 69 | 25 3d 30 20 74 6f 20 39 |:":for i|%=0 to 9|
|00002170| 3a 70 72 69 6e 74 20 61 | 24 28 69 25 29 3a 6e 65 |:print a|$(i%):ne|
|00002180| 78 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 72 65 |xt.. | re|
|00002190| 6d 20 74 68 65 20 6c 69 | 73 74 20 73 68 6f 75 6c |m the li|st shoul|
|000021a0| 64 20 62 65 20 73 6f 72 | 74 65 64 20 69 6e 20 61 |d be sor|ted in a|
|000021b0| 73 63 65 6e 64 69 6e 67 | 20 61 6c 70 68 61 62 65 |scending| alphabe|
|000021c0| 74 69 63 61 6c 20 6f 72 | 64 65 72 21 0d 0a 0d 0a |tical or|der!....|
|000021d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000021e0| 20 20 20 20 20 20 20 2d | 2d 2d 20 1b 47 42 41 53 | -|-- .GBAS|
|000021f0| 44 4c 58 20 20 20 56 65 | 72 73 69 6f 6e 20 31 2e |DLX Ve|rsion 1.|
|00002200| 32 20 20 20 46 65 62 72 | 75 61 72 79 20 31 39 38 |2 Febr|uary 198|
|00002210| 37 1b 48 20 2d 2d 2d 0d | 0a 0c 1b 41 48 0a 20 20 |7.H ---.|...AH. |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 1b 47 42 41 53 | | .GBAS|
|00002230| 44 4c 58 20 28 43 29 20 | 43 6f 70 79 72 69 67 68 |DLX (C) |Copyrigh|
|00002240| 74 20 31 39 38 36 2d 38 | 37 20 42 79 20 47 75 73 |t 1986-8|7 By Gus|
|00002250| 74 61 76 6f 20 56 65 72 | 64 75 6e 20 20 20 20 20 |tavo Ver|dun |
|00002260| 20 20 50 61 67 65 20 34 | 1b 48 1b 41 0c 0a 0d 0a | Page 4|.H.A....|
|00002270| 20 20 20 20 20 20 20 20 | 20 20 46 75 6e 63 74 69 | | Functi|
|00002280| 6f 6e 20 4e 61 6d 65 3a | 20 1b 47 47 55 4e 1b 48 |on Name:| .GGUN.H|
|00002290| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 41 72 67 75 |.. | Argu|
|000022a0| 6d 65 6e 74 73 20 20 20 | 20 3a 20 28 1b 34 4e 75 |ments | : (.4Nu|
|000022b0| 6d 5f 6f 66 5f 73 68 6f | 74 73 25 1b 35 29 0d 0a |m_of_sho|ts%.5)..|
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 54 79 70 65 20 20 | | Type |
|000022d0| 20 20 20 20 20 20 20 3a | 20 53 70 65 61 6b 65 72 | :| Speaker|
|000022e0| 20 73 75 70 70 6f 72 74 | 0d 0a 20 20 20 20 20 20 | support|.. |
|000022f0| 20 20 20 20 50 75 72 70 | 6f 73 65 20 20 20 20 20 | Purp|ose |
|00002300| 20 3a 20 53 69 6d 75 6c | 61 74 65 73 20 74 68 65 | : Simul|ates the|
|00002310| 20 73 6f 75 6e 64 20 6f | 66 20 61 20 67 75 6e 20 | sound o|f a gun |
|00002320| 6f 72 20 6d 61 63 68 69 | 6e 65 20 67 75 6e 0d 0a |or machi|ne gun..|
|00002330| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 44 65 73 63 |.. | Desc|
|00002340| 72 69 70 74 69 6f 6e 20 | 20 3a 0d 0a 20 20 20 20 |ription | :.. |
|00002350| 20 20 20 20 20 20 54 68 | 69 73 20 20 66 75 6e 63 | Th|is func|
|00002360| 74 69 6f 6e 20 20 67 65 | 6e 65 72 61 74 65 73 20 |tion ge|nerates |
|00002370| 20 74 68 65 20 20 73 6f | 75 6e 64 20 20 62 79 20 | the so|und by |
|00002380| 73 65 6e 64 69 6e 67 20 | 73 70 75 72 74 73 20 6f |sending |spurts o|
|00002390| 66 20 77 68 69 74 65 0d | 0a 20 20 20 20 20 20 20 |f white.|. |
|000023a0| 20 20 20 6e 6f 69 73 65 | 20 74 6f 20 74 68 65 20 | noise| to the |
|000023b0| 73 70 65 61 6b 65 72 2e | 20 20 54 68 69 73 20 77 |speaker.| This w|
|000023c0| 69 6c 6c 20 63 72 65 61 | 74 65 20 74 68 65 20 73 |ill crea|te the s|
|000023d0| 6f 75 6e 64 20 6f 66 20 | 61 20 71 75 69 63 6b 20 |ound of |a quick |
|000023e0| 20 65 78 2d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | ex-.. | |
|000023f0| 70 6c 6f 73 69 6f 6e 2e | 20 20 74 68 65 20 20 6f |plosion.| the o|
|00002400| 6e 6c 79 20 20 70 61 72 | 61 6d 65 74 65 72 20 20 |nly par|ameter |
|00002410| 6e 65 65 64 65 64 20 20 | 69 73 20 74 68 65 20 6e |needed |is the n|
|00002420| 75 6d 62 65 72 20 6f 66 | 20 73 68 6f 74 73 20 74 |umber of| shots t|
|00002430| 6f 0d 0a 20 20 20 20 20 | 20 20 20 20 20 66 69 72 |o.. | fir|
|00002440| 65 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |e..... | |
|00002450| 45 78 61 6d 70 6c 65 3a | 0d 0a 20 20 20 20 20 20 |Example:|.. |
|00002460| 20 20 20 20 69 6e 70 75 | 74 20 22 4e 75 6d 62 65 | inpu|t "Numbe|
|00002470| 72 20 6f 66 20 73 68 6f | 74 73 20 74 6f 20 66 69 |r of sho|ts to fi|
|00002480| 72 65 20 3a 22 2c 73 68 | 6f 74 73 25 3a 69 66 20 |re :",sh|ots%:if |
|00002490| 73 68 6f 74 73 25 3d 30 | 20 74 68 65 6e 20 65 6e |shots%=0| then en|
|000024a0| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 63 61 6c |d.. | cal|
|000024b0| 6c 20 67 75 6e 28 73 68 | 6f 74 73 25 29 0d 0a 0d |l gun(sh|ots%)...|
|000024c0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |........|........|
|000024d0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |........|........|
|000024e0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |........|........|
|000024f0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |........|........|
|00002500| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 20 20 20 20 20 20 20 |........|. |
|00002510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d | | --|
|00002520| 2d 20 1b 47 42 41 53 44 | 4c 58 20 20 20 56 65 72 |- .GBASD|LX Ver|
|00002530| 73 69 6f 6e 20 31 2e 32 | 20 20 20 46 65 62 72 75 |sion 1.2| Febru|
|00002540| 61 72 79 20 31 39 38 37 | 1b 48 20 2d 2d 2d 0d 0a |ary 1987|.H ---..|
|00002550| 0c 1b 41 48 0a 20 20 20 | 20 20 20 20 20 20 20 20 |..AH. | |
|00002560| 20 20 1b 47 42 41 53 44 | 4c 58 20 28 43 29 20 43 | .GBASD|LX (C) C|
|00002570| 6f 70 79 72 69 67 68 74 | 20 31 39 38 36 2d 38 37 |opyright| 1986-87|
|00002580| 20 42 79 20 47 75 73 74 | 61 76 6f 20 56 65 72 64 | By Gust|avo Verd|
|00002590| 75 6e 20 20 20 20 20 20 | 20 50 61 67 65 20 35 1b |un | Page 5.|
|000025a0| 48 1b 41 0c 0a 0d 0a 20 | 20 20 20 20 20 20 20 20 |H.A.... | |
|000025b0| 20 46 75 6e 63 74 69 6f | 6e 20 4e 61 6d 65 3a 20 | Functio|n Name: |
|000025c0| 1b 47 52 45 41 44 50 1b | 48 0d 0a 20 20 20 20 20 |.GREADP.|H.. |
|000025d0| 20 20 20 20 20 41 72 67 | 75 6d 65 6e 74 73 20 20 | Arg|uments |
|000025e0| 20 20 3a 20 28 1b 34 50 | 6f 72 74 5f 6e 75 6d 25 | : (.4P|ort_num%|
|000025f0| 1b 35 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |.5).. | T|
|00002600| 79 70 65 20 20 20 20 20 | 20 20 20 20 3a 20 50 72 |ype | : Pr|
|00002610| 69 6e 74 65 72 20 73 75 | 70 70 6f 72 74 0d 0a 20 |inter su|pport.. |
|00002620| 20 20 20 20 20 20 20 20 | 20 50 75 72 70 6f 73 65 | | Purpose|
|00002630| 20 20 20 20 20 20 3a 20 | 52 65 61 64 73 20 74 68 | : |Reads th|
|00002640| 65 20 70 72 69 6e 74 65 | 72 20 73 74 61 74 75 73 |e printe|r status|
|00002650| 20 6f 66 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | of the |specifie|
|00002660| 64 20 70 6f 72 74 0d 0a | 20 20 20 20 20 20 20 20 |d port..| |
|00002670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002680| 20 6e 75 6d 62 65 72 20 | 28 31 2d 33 29 20 61 6e | number |(1-3) an|
|00002690| 64 20 72 65 74 75 72 6e | 73 20 77 69 74 68 20 74 |d return|s with t|
|000026a0| 68 65 20 73 74 61 74 75 | 73 20 62 79 74 65 0d 0a |he statu|s byte..|
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000026c0| 20 20 20 20 20 20 20 20 | 20 66 6f 72 20 74 68 61 | | for tha|
|000026d0| 74 20 70 6f 72 74 20 69 | 6e 20 74 68 65 20 70 6f |t port i|n the po|
|000026e0| 72 74 5f 6e 75 6d 25 20 | 76 61 72 69 61 62 6c 65 |rt_num% |variable|
|000026f0| 2e 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 44 |..... | D|
|00002700| 65 73 63 72 69 70 74 69 | 6f 6e 3a 0d 0a 20 20 20 |escripti|on:.. |
|00002710| 20 20 20 20 20 20 20 54 | 68 65 20 73 74 61 74 75 | T|he statu|
|00002720| 73 20 62 79 74 65 20 6f | 66 20 63 6f 6e 74 61 69 |s byte o|f contai|
|00002730| 6e 73 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ns the f|ollowing|
|00002740| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 3a 0d 0a 0d | informa|tion:...|
|00002750| 0a 20 20 20 20 20 20 20 | 20 20 20 62 69 74 3a 20 |. | bit: |
|00002760| 20 20 20 20 37 20 20 20 | 20 36 20 20 20 20 35 20 | 7 | 6 5 |
|00002770| 20 20 20 34 20 20 20 20 | 33 20 20 20 20 32 2d 31 | 4 |3 2-1|
|00002780| 20 20 30 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 0.. | |
|00002790| 20 20 20 20 20 20 20 20 | 7c 20 20 20 20 7c 20 20 | || | |
|000027a0| 20 20 7c 20 20 20 20 7c | 20 20 20 20 7c 20 20 20 | | || | |
|000027b0| 20 7c 20 20 20 20 7c 5f | 54 69 6d 65 20 6f 75 74 | | |_|Time out|
|000027c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000027d0| 20 20 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c | | | | ||
|000027e0| 20 20 20 20 7c 20 20 20 | 20 7c 20 20 20 20 7c 5f | | | | |_|
|000027f0| 55 6e 75 73 65 64 0d 0a | 20 20 20 20 20 20 20 20 |Unused..| |
|00002800| 20 20 20 20 20 20 20 20 | 20 20 20 7c 20 20 20 20 | | | |
|00002810| 7c 20 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c || | | | ||
|00002820| 5f 31 20 3d 20 49 2f 4f | 20 45 72 72 6f 72 0d 0a |_1 = I/O| Error..|
|00002830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002840| 20 20 20 7c 20 20 20 20 | 7c 20 20 20 20 7c 20 20 | | || | |
|00002850| 20 20 7c 5f 31 20 3d 20 | 53 65 6c 65 63 74 65 64 | |_1 = |Selected|
|00002860| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002870| 20 20 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c | | | | ||
|00002880| 5f 31 20 3d 20 4f 75 74 | 20 6f 66 20 50 61 70 65 |_1 = Out| of Pape|
|00002890| 72 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r.. | |
|000028a0| 20 20 20 20 20 20 7c 20 | 20 20 20 7c 5f 31 20 3d | | | |_1 =|
|000028b0| 20 41 63 6b 6e 6f 77 6c | 65 64 67 65 0d 0a 20 20 | Acknowl|edge.. |
|000028c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028d0| 20 7c 5f 31 20 3d 20 4e | 6f 74 20 42 75 73 79 0d | |_1 = N|ot Busy.|
|000028e0| 0a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 49 4d 50 |... | IMP|
|000028f0| 4f 52 54 41 4e 54 3a 20 | 54 68 69 73 20 72 6f 75 |ORTANT: |This rou|
|00002900| 74 69 6e 65 20 64 6f 65 | 73 20 6e 6f 74 20 63 68 |tine doe|s not ch|
|00002910| 65 63 6b 20 66 6f 72 20 | 61 20 76 61 6c 69 64 20 |eck for |a valid |
|00002920| 20 70 6f 72 74 20 20 6e | 75 6d 62 65 72 2e 0d 0a | port n|umber...|
|00002930| 20 20 20 20 20 20 20 20 | 20 20 42 65 20 73 75 72 | | Be sur|
|00002940| 65 20 74 68 61 74 20 74 | 68 65 20 70 6f 72 74 20 |e that t|he port |
|00002950| 6e 75 6d 62 65 72 20 69 | 73 20 69 6e 20 74 68 65 |number i|s in the|
|00002960| 20 72 61 6e 67 65 20 6f | 66 20 31 2d 33 0d 0a 0d | range o|f 1-3...|
|00002970| 0a 20 20 20 20 20 20 20 | 20 20 20 45 78 61 6d 70 |. | Examp|
|00002980| 6c 65 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 70 |le:.. | p|
|00002990| 6f 72 74 25 3d 31 3a 63 | 61 6c 6c 20 72 65 61 64 |ort%=1:c|all read|
|000029a0| 70 28 70 6f 72 74 25 29 | 3a 70 72 69 6e 74 20 70 |p(port%)|:print p|
|000029b0| 6f 72 74 25 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ort%.. | |
|000029c0| 69 66 20 70 6f 72 74 25 | 20 61 6e 64 20 33 32 3d |if port%| and 32=|
|000029d0| 33 32 20 74 68 65 6e 20 | 70 72 69 6e 74 20 22 50 |32 then |print "P|
|000029e0| 72 69 6e 74 65 72 20 69 | 73 20 6f 75 74 20 6f 66 |rinter i|s out of|
|000029f0| 20 70 61 70 65 72 22 0d | 0a 20 20 20 20 20 20 20 | paper".|. |
|00002a00| 20 20 20 69 66 20 70 6f | 72 74 25 20 61 6e 64 20 | if po|rt% and |
|00002a10| 31 32 38 3d 30 20 74 68 | 65 6e 20 70 72 69 6e 74 |128=0 th|en print|
|00002a20| 20 22 50 72 69 6e 74 65 | 72 20 69 73 20 4f 66 66 | "Printe|r is Off|
|00002a30| 2d 6c 69 6e 65 22 0d 0a | 0d 0a 20 20 20 20 20 20 |-line"..|.. |
|00002a40| 20 20 20 20 46 75 6e 63 | 74 69 6f 6e 20 4e 61 6d | Func|tion Nam|
|00002a50| 65 3a 20 1b 47 52 45 53 | 45 54 50 1b 48 0d 0a 20 |e: .GRES|ETP.H.. |
|00002a60| 20 20 20 20 20 20 20 20 | 20 41 72 67 75 6d 65 6e | | Argumen|
|00002a70| 74 73 20 20 20 20 3a 20 | 28 1b 34 50 6f 72 74 5f |ts : |(.4Port_|
|00002a80| 6e 75 6d 25 1b 35 29 0d | 0a 20 20 20 20 20 20 20 |num%.5).|. |
|00002a90| 20 20 20 54 79 70 65 20 | 20 20 20 20 20 20 20 20 | Type | |
|00002aa0| 3a 20 50 72 69 6e 74 65 | 72 20 73 75 70 70 6f 72 |: Printe|r suppor|
|00002ab0| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 50 75 72 |t.. | Pur|
|00002ac0| 70 6f 73 65 20 20 20 20 | 20 20 3a 20 52 65 73 65 |pose | : Rese|
|00002ad0| 74 73 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |ts the s|pecified|
|00002ae0| 20 70 72 69 6e 74 65 72 | 20 70 6f 72 74 20 6e 75 | printer| port nu|
|00002af0| 6d 62 65 72 20 28 31 2d | 33 29 0d 0a 20 20 20 20 |mber (1-|3).. |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b10| 20 20 20 20 20 61 6e 64 | 20 72 65 74 75 72 6e 73 | and| returns|
|00002b20| 20 77 69 74 68 20 69 74 | 73 20 73 74 61 74 75 73 | with it|s status|
|00002b30| 20 62 79 74 65 20 28 73 | 65 65 20 74 68 65 20 52 | byte (s|ee the R|
|00002b40| 45 41 44 50 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |EADP.. | |
|00002b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 66 | | f|
|00002b60| 75 6e 63 74 69 6f 6e 20 | 64 65 73 63 72 69 70 74 |unction |descript|
|00002b70| 69 6f 6e 20 66 6f 72 20 | 69 6e 66 6f 72 6d 61 74 |ion for |informat|
|00002b80| 69 6f 6e 20 6f 6e 20 74 | 68 65 0d 0a 20 20 20 20 |ion on t|he.. |
|00002b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ba0| 20 20 20 20 20 70 72 69 | 6e 74 65 72 20 73 74 61 | pri|nter sta|
|00002bb0| 74 75 73 20 62 79 74 65 | 29 0d 0a 0d 0a 20 20 20 |tus byte|).... |
|00002bc0| 20 20 20 20 20 20 20 44 | 65 73 63 72 69 70 74 69 | D|escripti|
|00002bd0| 6f 6e 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |on:.. | T|
|00002be0| 68 69 73 20 20 66 75 6e | 63 74 69 6f 6e 20 20 73 |his fun|ction s|
|00002bf0| 65 6e 64 73 20 61 20 20 | 72 65 73 65 74 20 73 74 |ends a |reset st|
|00002c00| 61 74 75 73 20 74 68 72 | 6f 75 67 68 20 74 68 65 |atus thr|ough the|
|00002c10| 20 70 61 72 61 6c 6c 65 | 6c 20 69 6e 74 65 72 2d | paralle|l inter-|
|00002c20| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 66 61 63 65 |.. | face|
|00002c30| 20 6f 66 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | of the |specifie|
|00002c40| 64 20 70 6f 72 74 20 6e | 75 6d 62 65 72 2e 20 20 |d port n|umber. |
|00002c50| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 64 6f 65 |This rou|tine doe|
|00002c60| 73 20 20 63 68 65 63 6b | 20 20 74 68 65 0d 0a 20 |s check| the.. |
|00002c70| 20 20 20 20 20 20 20 20 | 20 70 61 72 61 6d 65 74 | | paramet|
|00002c80| 65 72 73 20 20 74 6f 20 | 20 62 65 20 73 75 72 65 |ers to | be sure|
|00002c90| 20 74 68 61 74 20 74 68 | 65 79 20 61 72 65 20 69 | that th|ey are i|
|00002ca0| 6e 20 74 68 65 20 72 61 | 6e 67 65 20 6f 66 20 31 |n the ra|nge of 1|
|00002cb0| 20 74 6f 20 33 2e 20 20 | 49 66 0d 0a 20 20 20 20 | to 3. |If.. |
|00002cc0| 20 20 20 20 20 20 74 68 | 65 20 70 6f 72 74 5f 6e | th|e port_n|
|00002cd0| 75 6d 25 20 61 72 67 75 | 6d 65 6e 74 20 69 73 20 |um% argu|ment is |
|00002ce0| 65 71 75 61 6c 20 74 6f | 20 2d 31 20 20 75 70 6f |equal to| -1 upo|
|00002cf0| 6e 20 72 65 74 75 72 6e | 20 74 68 65 6e 20 74 68 |n return| then th|
|00002d00| 65 20 20 70 6f 72 74 0d | 0a 20 20 20 20 20 20 20 |e port.|. |
|00002d10| 20 20 20 6e 75 6d 62 65 | 72 20 69 73 20 6e 6f 74 | numbe|r is not|
|00002d20| 20 76 61 6c 69 64 2e 0d | 0a 0d 0a 20 20 20 20 20 | valid..|... |
|00002d30| 20 20 20 20 20 45 78 61 | 6d 70 6c 65 3a 0d 0a 20 | Exa|mple:.. |
|00002d40| 20 20 20 20 20 20 20 20 | 20 70 6f 72 74 25 3d 31 | | port%=1|
|00002d50| 3a 63 61 6c 6c 20 72 65 | 73 65 74 70 28 70 6f 72 |:call re|setp(por|
|00002d60| 74 25 29 3a 70 72 69 6e | 74 20 70 6f 72 74 25 0d |t%):prin|t port%.|
|00002d70| 0a 20 20 20 20 20 20 20 | 20 20 20 69 66 20 70 6f |. | if po|
|00002d80| 72 74 25 3d 2d 31 20 74 | 68 65 6e 20 70 72 69 6e |rt%=-1 t|hen prin|
|00002d90| 74 22 50 6f 72 74 20 6e | 75 6d 62 65 72 20 6d 75 |t"Port n|umber mu|
|00002da0| 73 74 20 62 65 20 69 6e | 20 74 68 65 20 72 61 6e |st be in| the ran|
|00002db0| 67 65 20 6f 66 20 31 2d | 33 22 0d 0a 20 20 20 20 |ge of 1-|3".. |
|00002dc0| 20 20 20 20 20 20 69 66 | 20 70 6f 72 74 25 20 61 | if| port% a|
|00002dd0| 6e 64 20 33 32 3d 33 32 | 20 74 68 65 6e 20 70 72 |nd 32=32| then pr|
|00002de0| 69 6e 74 20 22 50 72 69 | 6e 74 65 72 20 69 73 20 |int "Pri|nter is |
|00002df0| 6f 75 74 20 6f 66 20 70 | 61 70 65 72 22 0d 0a 20 |out of p|aper".. |
|00002e00| 20 20 20 20 20 20 20 20 | 20 69 66 20 70 6f 72 74 | | if port|
|00002e10| 25 20 61 6e 64 20 31 32 | 38 3d 30 20 74 68 65 6e |% and 12|8=0 then|
|00002e20| 20 70 72 69 6e 74 20 22 | 50 72 69 6e 74 65 72 20 | print "|Printer |
|00002e30| 69 73 20 4f 66 66 2d 6c | 69 6e 65 22 0d 0a 0d 0a |is Off-l|ine"....|
|00002e40| 0d 0a 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |...... | |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 20 1b | | --- .|
|00002e60| 47 42 41 53 44 4c 58 20 | 20 20 56 65 72 73 69 6f |GBASDLX | Versio|
|00002e70| 6e 20 31 2e 32 20 20 20 | 46 65 62 72 75 61 72 79 |n 1.2 |February|
|00002e80| 20 31 39 38 37 1b 48 20 | 2d 2d 2d 0d 0a 0c 1b 41 | 1987.H |---....A|
|00002e90| 48 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b |H. | .|
|00002ea0| 47 42 41 53 44 4c 58 20 | 28 43 29 20 43 6f 70 79 |GBASDLX |(C) Copy|
|00002eb0| 72 69 67 68 74 20 31 39 | 38 36 2d 38 37 20 42 79 |right 19|86-87 By|
|00002ec0| 20 47 75 73 74 61 76 6f | 20 56 65 72 64 75 6e 20 | Gustavo| Verdun |
|00002ed0| 20 20 20 20 20 20 50 61 | 67 65 20 36 1b 48 1b 41 | Pa|ge 6.H.A|
|00002ee0| 0c 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 46 75 |.... | Fu|
|00002ef0| 6e 63 74 69 6f 6e 20 4e | 61 6d 65 3a 20 1b 47 53 |nction N|ame: .GS|
|00002f00| 45 54 4c 1b 48 0d 0a 20 | 20 20 20 20 20 20 20 20 |ETL.H.. | |
|00002f10| 20 41 72 67 75 6d 65 6e | 74 73 20 20 20 20 3a 20 | Argumen|ts : |
|00002f20| 28 1b 34 53 6f 75 72 63 | 65 5f 73 74 72 69 6e 67 |(.4Sourc|e_string|
|00002f30| 24 2c 44 65 73 74 69 6e | 61 74 69 6f 6e 5f 73 74 |$,Destin|ation_st|
|00002f40| 72 69 6e 67 24 1b 35 29 | 0d 0a 20 20 20 20 20 20 |ring$.5)|.. |
|00002f50| 20 20 20 20 54 79 70 65 | 20 20 20 20 20 20 20 20 | Type| |
|00002f60| 20 3a 20 53 74 72 69 6e | 67 20 6d 61 6e 69 70 75 | : Strin|g manipu|
|00002f70| 6c 61 74 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |lation..| |
|00002f80| 20 20 50 75 72 70 6f 73 | 65 20 20 20 20 20 20 3a | Purpos|e :|
|00002f90| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 77 | This fu|nction w|
|00002fa0| 69 6c 6c 20 70 6c 61 63 | 65 20 74 68 65 20 73 6f |ill plac|e the so|
|00002fb0| 75 72 63 65 20 73 74 72 | 69 6e 67 20 69 6e 73 69 |urce str|ing insi|
|00002fc0| 64 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |de.. | |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 66 20 | | of |
|00002fe0| 74 68 65 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 |the dest|ination |
|00002ff0| 6c 65 66 74 2d 6a 75 73 | 74 69 66 69 65 64 2e 20 |left-jus|tified. |
|00003000| 49 66 20 74 68 65 20 73 | 6f 75 72 63 65 0d 0a 20 |If the s|ource.. |
|00003010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003020| 20 20 20 20 20 20 20 20 | 73 74 72 69 6e 67 20 69 | |string i|
|00003030| 73 20 6c 6f 6e 67 65 72 | 20 74 68 61 6e 20 74 68 |s longer| than th|
|00003040| 65 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 73 74 |e destin|ation st|
|00003050| 72 69 6e 67 20 74 68 65 | 6e 0d 0a 20 20 20 20 20 |ring the|n.. |
|00003060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003070| 20 20 20 20 74 68 65 20 | 72 69 67 68 74 20 70 6f | the |right po|
|00003080| 72 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 73 74 72 |rtion of| the str|
|00003090| 69 6e 67 20 77 69 6c 6c | 20 62 65 20 74 72 75 6e |ing will| be trun|
|000030a0| 63 61 74 65 64 2e 0d 0a | 0d 0a 20 20 20 20 20 20 |cated...|.. |
|000030b0| 20 20 20 20 44 65 73 63 | 72 69 70 74 69 6f 6e 3a | Desc|ription:|
|000030c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 54 68 69 73 |.. | This|
|000030d0| 20 66 75 6e 63 74 69 6f | 6e 20 61 75 74 6f 6d 61 | functio|n automa|
|000030e0| 74 69 63 61 6c 6c 79 20 | 73 65 74 73 20 74 68 65 |tically |sets the|
|000030f0| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 73 74 72 | destina|tion str|
|00003100| 69 6e 67 20 74 6f 20 73 | 70 61 63 65 73 0d 0a 20 |ing to s|paces.. |
|00003110| 20 20 20 20 20 20 20 20 | 20 28 41 53 43 49 49 20 | | (ASCII |
|00003120| 20 33 32 29 20 65 76 65 | 6e 20 69 66 20 74 68 65 | 32) eve|n if the|
|00003130| 20 73 6f 75 72 63 65 20 | 73 74 72 69 6e 67 20 69 | source |string i|
|00003140| 73 20 6f 66 20 6c 65 6e | 67 74 68 20 7a 65 72 6f |s of len|gth zero|
|00003150| 2e 20 20 42 65 20 73 75 | 72 65 0d 0a 20 20 20 20 |. Be su|re.. |
|00003160| 20 20 20 20 20 20 74 6f | 20 73 61 76 65 20 74 68 | to| save th|
|00003170| 65 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 73 74 |e destin|ation st|
|00003180| 72 69 6e 67 20 69 6e 74 | 6f 20 74 68 65 20 73 6f |ring int|o the so|
|00003190| 75 72 63 65 20 73 74 72 | 69 6e 67 20 20 61 66 74 |urce str|ing aft|
|000031a0| 65 72 20 20 74 68 65 0d | 0a 20 20 20 20 20 20 20 |er the.|. |
|000031b0| 20 20 20 66 75 6e 63 74 | 69 6f 6e 20 63 61 6c 6c | funct|ion call|
|000031c0| 2e 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 45 |..... | E|
|000031d0| 78 61 6d 70 6c 65 3a 0d | 0a 20 20 20 20 20 20 20 |xample:.|. |
|000031e0| 20 20 20 61 24 3d 22 45 | 6e 74 65 72 20 4e 61 6d | a$="E|nter Nam|
|000031f0| 65 22 3a 62 24 3d 73 70 | 61 63 65 28 32 30 29 3a |e":b$=sp|ace(20):|
|00003200| 63 61 6c 6c 20 73 65 74 | 6c 28 61 24 2c 62 24 29 |call set|l(a$,b$)|
|00003210| 3a 61 24 3d 62 24 0d 0a | 20 20 20 20 20 20 20 20 |:a$=b$..| |
|00003220| 20 20 72 65 6d 20 74 68 | 65 20 6c 61 73 74 20 63 | rem th|e last c|
|00003230| 6f 6d 6d 61 6e 64 20 22 | 61 24 3d 62 24 22 20 73 |ommand "|a$=b$" s|
|00003240| 61 76 65 73 20 74 68 65 | 20 64 65 73 74 69 6e 61 |aves the| destina|
|00003250| 74 69 6f 6e 20 73 74 72 | 69 6e 67 20 69 6e 20 74 |tion str|ing in t|
|00003260| 68 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 72 65 |he.. | re|
|00003270| 6d 20 73 6f 75 72 63 65 | 20 73 74 72 69 6e 67 20 |m source| string |
|00003280| 73 69 6e 63 65 20 74 68 | 65 20 66 75 6e 63 74 69 |since th|e functi|
|00003290| 6f 6e 20 63 61 6e 74 27 | 20 63 68 61 6e 67 65 20 |on cant'| change |
|000032a0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 0d 0a 20 |the leng|th of.. |
|000032b0| 20 20 20 20 20 20 20 20 | 20 72 65 6d 20 61 6e 79 | | rem any|
|000032c0| 20 73 74 72 69 6e 67 2e | 0d 0a 20 20 20 20 20 20 | string.|.. |
|000032d0| 20 20 20 20 70 72 69 6e | 74 20 22 3e 22 3b 61 24 | prin|t ">";a$|
|000032e0| 22 3b 22 3c 22 3a 52 45 | 4d 20 74 68 69 73 20 77 |";"<":RE|M this w|
|000032f0| 69 6c 6c 20 73 68 6f 77 | 20 79 6f 75 20 74 68 65 |ill show| you the|
|00003300| 20 6e 65 77 20 6c 65 6e | 67 74 68 20 6f 66 20 61 | new len|gth of a|
|00003310| 24 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 46 |$.... | F|
|00003320| 75 6e 63 74 69 6f 6e 20 | 4e 61 6d 65 3a 20 1b 47 |unction |Name: .G|
|00003330| 53 45 54 52 1b 48 0d 0a | 20 20 20 20 20 20 20 20 |SETR.H..| |
|00003340| 20 20 41 72 67 75 6d 65 | 6e 74 73 20 20 20 20 3a | Argume|nts :|
|00003350| 20 28 1b 34 53 6f 75 72 | 63 65 5f 73 74 72 69 6e | (.4Sour|ce_strin|
|00003360| 67 24 2c 44 65 73 74 69 | 6e 61 74 69 6f 6e 5f 73 |g$,Desti|nation_s|
|00003370| 74 72 69 6e 67 24 1b 35 | 29 0d 0a 20 20 20 20 20 |tring$.5|).. |
|00003380| 20 20 20 20 20 54 79 70 | 65 20 20 20 20 20 20 20 | Typ|e |
|00003390| 20 20 3a 20 53 74 72 69 | 6e 67 20 6d 61 6e 69 70 | : Stri|ng manip|
|000033a0| 75 6c 61 74 69 6f 6e 0d | 0a 20 20 20 20 20 20 20 |ulation.|. |
|000033b0| 20 20 20 50 75 72 70 6f | 73 65 20 20 20 20 20 20 | Purpo|se |
|000033c0| 3a 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |: This f|unction |
|000033d0| 77 69 6c 6c 20 70 6c 61 | 63 65 20 74 68 65 20 73 |will pla|ce the s|
|000033e0| 6f 75 72 63 65 20 73 74 | 72 69 6e 67 20 69 6e 73 |ource st|ring ins|
|000033f0| 69 64 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ide.. | |
|00003400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 68 | | th|
|00003410| 65 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 73 74 |e destin|ation st|
|00003420| 72 69 6e 67 20 72 69 67 | 68 74 20 6a 75 73 74 69 |ring rig|ht justi|
|00003430| 66 69 65 64 2e 20 49 66 | 20 74 68 65 0d 0a 20 20 |fied. If| the.. |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003450| 20 20 20 20 20 20 20 64 | 65 73 74 69 6e 61 74 69 | d|estinati|
|00003460| 6f 6e 20 73 74 72 69 6e | 67 20 69 73 20 73 68 6f |on strin|g is sho|
|00003470| 72 74 65 72 20 74 68 61 | 6e 20 74 68 65 20 73 6f |rter tha|n the so|
|00003480| 75 72 63 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |urce.. | |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 | | s|
|000034a0| 74 72 69 6e 67 20 74 68 | 65 6e 20 74 68 65 20 72 |tring th|en the r|
|000034b0| 69 67 68 74 20 70 6f 72 | 74 69 6f 6e 20 6f 66 20 |ight por|tion of |
|000034c0| 74 68 65 20 73 74 72 69 | 6e 67 20 77 69 6c 6c 0d |the stri|ng will.|
|000034d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000034e0| 20 20 20 20 20 20 20 20 | 20 20 62 65 20 74 72 75 | | be tru|
|000034f0| 6e 63 61 74 65 64 2e 0d | 0a 0d 0a 20 20 20 20 20 |ncated..|... |
|00003500| 20 20 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e | Des|cription|
|00003510| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 54 68 69 |:.. | Thi|
|00003520| 73 20 20 66 75 6e 63 74 | 69 6f 6e 20 20 61 75 74 |s funct|ion aut|
|00003530| 6f 6d 61 74 69 63 61 6c | 6c 79 20 20 73 65 74 73 |omatical|ly sets|
|00003540| 20 74 68 65 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | the des|tination|
|00003550| 20 73 74 72 69 6e 67 20 | 74 6f 20 61 6c 6c 0d 0a | string |to all..|
|00003560| 20 20 20 20 20 20 20 20 | 20 20 73 70 61 63 65 73 | | spaces|
|00003570| 20 28 41 53 43 49 49 20 | 33 32 29 20 65 76 65 6e | (ASCII |32) even|
|00003580| 20 69 66 20 74 68 65 20 | 73 6f 75 72 63 65 20 73 | if the |source s|
|00003590| 74 72 69 6e 67 20 69 73 | 20 6f 66 20 6c 65 6e 67 |tring is| of leng|
|000035a0| 74 68 20 7a 65 72 6f 2e | 20 42 65 0d 0a 20 20 20 |th zero.| Be.. |
|000035b0| 20 20 20 20 20 20 20 73 | 75 72 65 20 74 6f 20 73 | s|ure to s|
|000035c0| 61 76 65 20 74 68 65 20 | 64 65 73 74 69 6e 61 74 |ave the |destinat|
|000035d0| 69 6f 6e 20 73 74 72 69 | 6e 67 20 69 6e 74 6f 20 |ion stri|ng into |
|000035e0| 74 68 65 20 73 6f 75 72 | 63 65 20 73 74 72 69 6e |the sour|ce strin|
|000035f0| 67 20 20 61 66 74 65 72 | 0d 0a 20 20 20 20 20 20 |g after|.. |
|00003600| 20 20 20 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | the |function|
|00003610| 20 63 61 6c 6c 2e 0d 0a | 0d 0a 20 20 20 20 20 20 | call...|.. |
|00003620| 20 20 20 20 45 78 61 6d | 70 6c 65 3a 0d 0a 20 20 | Exam|ple:.. |
|00003630| 20 20 20 20 20 20 20 20 | 61 24 3d 22 45 6e 74 65 | |a$="Ente|
|00003640| 72 20 4e 61 6d 65 22 3a | 62 24 3d 73 70 61 63 65 |r Name":|b$=space|
|00003650| 28 32 30 29 3a 63 61 6c | 6c 20 73 65 74 72 28 61 |(20):cal|l setr(a|
|00003660| 24 2c 62 24 29 3a 61 24 | 3d 62 24 0d 0a 20 20 20 |$,b$):a$|=b$.. |
|00003670| 20 20 20 20 20 20 20 72 | 65 6d 20 74 68 65 20 6c | r|em the l|
|00003680| 61 73 74 20 63 6f 6d 6d | 61 6e 64 20 22 61 24 3d |ast comm|and "a$=|
|00003690| 62 24 22 20 73 61 76 65 | 73 20 74 68 65 20 64 65 |b$" save|s the de|
|000036a0| 73 74 69 6e 61 74 69 6f | 6e 20 73 74 72 69 6e 67 |stinatio|n string|
|000036b0| 20 69 6e 20 74 68 65 0d | 0a 20 20 20 20 20 20 20 | in the.|. |
|000036c0| 20 20 20 72 65 6d 20 73 | 6f 75 72 63 65 20 73 74 | rem s|ource st|
|000036d0| 72 69 6e 67 20 73 69 6e | 63 65 20 74 68 65 20 66 |ring sin|ce the f|
|000036e0| 75 6e 63 74 69 6f 6e 20 | 63 61 6e 74 27 20 63 68 |unction |cant' ch|
|000036f0| 61 6e 67 65 20 74 68 65 | 20 6c 65 6e 67 74 68 20 |ange the| length |
|00003700| 6f 66 0d 0a 20 20 20 20 | 20 20 20 20 20 20 72 65 |of.. | re|
|00003710| 6d 20 61 6e 79 20 73 74 | 72 69 6e 67 2e 0d 0a 20 |m any st|ring... |
|00003720| 20 20 20 20 20 20 20 20 | 20 70 72 69 6e 74 20 22 | | print "|
|00003730| 3e 22 3b 61 24 3b 22 3c | 22 3a 52 45 4d 20 74 68 |>";a$;"<|":REM th|
|00003740| 69 73 20 77 69 6c 6c 20 | 73 68 6f 77 20 79 6f 75 |is will |show you|
|00003750| 20 74 68 65 20 6e 65 77 | 20 6c 65 6e 67 74 68 20 | the new| length |
|00003760| 6f 66 20 61 24 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |of a$...|........|
|00003770| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 20 20 20 20 20 20 20 |........|. |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d | | --|
|00003790| 2d 20 1b 47 42 41 53 44 | 4c 58 20 20 20 56 65 72 |- .GBASD|LX Ver|
|000037a0| 73 69 6f 6e 20 31 2e 32 | 20 20 20 46 65 62 72 75 |sion 1.2| Febru|
|000037b0| 61 72 79 20 31 39 38 37 | 1b 48 20 2d 2d 2d 0d 0a |ary 1987|.H ---..|
|000037c0| 0c 1b 41 48 0a 20 20 20 | 20 20 20 20 20 20 20 20 |..AH. | |
|000037d0| 20 20 1b 47 42 41 53 44 | 4c 58 20 28 43 29 20 43 | .GBASD|LX (C) C|
|000037e0| 6f 70 79 72 69 67 68 74 | 20 31 39 38 36 2d 38 37 |opyright| 1986-87|
|000037f0| 20 42 79 20 47 75 73 74 | 61 76 6f 20 56 65 72 64 | By Gust|avo Verd|
|00003800| 75 6e 20 20 20 20 20 20 | 20 50 61 67 65 20 37 1b |un | Page 7.|
|00003810| 48 1b 41 0c 0a 0d 0a 20 | 20 20 20 20 20 20 20 20 |H.A.... | |
|00003820| 20 46 75 6e 63 74 69 6f | 6e 20 4e 61 6d 65 3a 20 | Functio|n Name: |
|00003830| 1b 47 53 4e 44 4f 46 46 | 1b 48 0d 0a 20 20 20 20 |.GSNDOFF|.H.. |
|00003840| 20 20 20 20 20 20 41 72 | 67 75 6d 65 6e 74 73 20 | Ar|guments |
|00003850| 20 20 20 3a 20 4e 4f 4e | 45 0d 0a 20 20 20 20 20 | : NON|E.. |
|00003860| 20 20 20 20 20 54 79 70 | 65 20 20 20 20 20 20 20 | Typ|e |
|00003870| 20 20 3a 20 53 70 65 61 | 6b 65 72 20 73 75 70 70 | : Spea|ker supp|
|00003880| 6f 72 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |ort.. | P|
|00003890| 75 72 70 6f 73 65 20 20 | 20 20 20 20 3a 20 54 75 |urpose | : Tu|
|000038a0| 72 6e 73 20 73 70 65 61 | 6b 65 72 20 6f 66 66 2e |rns spea|ker off.|
|000038b0| 20 49 66 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f | If this| functio|
|000038c0| 6e 20 69 73 20 75 73 65 | 64 20 74 68 65 6e 0d 0a |n is use|d then..|
|000038d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038e0| 20 20 20 20 20 20 20 20 | 20 74 68 65 20 42 41 53 | | the BAS|
|000038f0| 49 43 20 53 4f 55 4e 44 | 20 6f 72 20 42 45 45 50 |IC SOUND| or BEEP|
|00003900| 20 63 6f 6d 6d 61 6e 64 | 73 20 77 69 6c 6c 20 6e | command|s will n|
|00003910| 6f 74 20 77 6f 72 6b 2e | 0d 0a 0d 0a 20 20 20 20 |ot work.|.... |
|00003920| 20 20 20 20 20 20 44 65 | 73 63 72 69 70 74 69 6f | De|scriptio|
|00003930| 6e 20 20 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |n :.. | |
|00003940| 54 68 69 73 20 20 66 75 | 6e 63 74 69 6f 6e 20 20 |This fu|nction |
|00003950| 63 61 6e 20 20 62 65 20 | 20 75 73 65 66 75 6c 20 |can be | useful |
|00003960| 66 6f 72 20 74 68 6f 73 | 65 20 70 72 6f 67 72 61 |for thos|e progra|
|00003970| 6d 73 20 74 68 61 74 20 | 75 73 65 20 73 6f 75 6e |ms that |use soun|
|00003980| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 70 72 6f |d.. | pro|
|00003990| 6d 70 74 73 20 74 6f 20 | 67 65 74 20 61 74 74 65 |mpts to |get atte|
|000039a0| 6e 74 69 6f 6e 20 77 68 | 65 6e 20 69 6e 70 75 74 |ntion wh|en input|
|000039b0| 20 69 73 20 72 65 71 75 | 69 72 65 64 2e 20 20 57 | is requ|ired. W|
|000039c0| 69 74 68 20 74 68 69 73 | 20 66 75 6e 63 2d 0d 0a |ith this| func-..|
|000039d0| 20 20 20 20 20 20 20 20 | 20 20 74 69 6f 6e 20 20 | | tion |
|000039e0| 79 6f 75 20 20 63 61 6e | 20 20 65 61 73 69 6c 79 |you can| easily|
|000039f0| 20 61 64 64 20 74 68 65 | 20 66 65 61 74 75 72 65 | add the| feature|
|00003a00| 20 74 6f 20 79 6f 75 72 | 20 70 72 6f 67 72 61 6d | to your| program|
|00003a10| 73 20 74 68 61 74 20 77 | 69 6c 6c 0d 0a 20 20 20 |s that w|ill.. |
|00003a20| 20 20 20 20 20 20 20 6c | 65 74 20 74 68 65 20 75 | l|et the u|
|00003a30| 73 65 72 20 64 65 63 69 | 64 65 20 69 66 20 68 65 |ser deci|de if he|
|00003a40| 20 77 61 6e 74 73 20 74 | 6f 20 68 61 76 65 20 74 | wants t|o have t|
|00003a50| 68 65 20 73 6f 75 6e 64 | 20 70 72 6f 6d 70 74 73 |he sound| prompts|
|00003a60| 20 20 6f 6e 20 20 6f 72 | 0d 0a 20 20 20 20 20 20 | on or|.. |
|00003a70| 20 20 20 20 6f 66 66 2e | 20 20 49 66 20 20 68 65 | off.| If he|
|00003a80| 20 20 77 61 6e 74 73 20 | 74 68 65 20 6f 66 66 20 | wants |the off |
|00003a90| 74 68 65 6e 20 61 74 20 | 74 68 65 20 62 65 67 69 |then at |the begi|
|00003aa0| 6e 6e 69 6e 67 20 6f 66 | 20 79 6f 75 72 20 70 72 |nning of| your pr|
|00003ab0| 6f 67 72 61 6d 0d 0a 20 | 20 20 20 20 20 20 20 20 |ogram.. | |
|00003ac0| 20 6a 75 73 74 20 63 61 | 6c 6c 20 74 68 69 73 20 | just ca|ll this |
|00003ad0| 66 75 6e 63 74 69 6f 6e | 2e 20 41 6e 79 20 73 6f |function|. Any so|
|00003ae0| 75 6e 64 20 73 74 61 74 | 65 6d 65 6e 74 73 20 66 |und stat|ements f|
|00003af0| 6f 6c 6c 6f 77 69 6e 67 | 20 74 68 69 73 20 63 6f |ollowing| this co|
|00003b00| 6d 2d 0d 0a 20 20 20 20 | 20 20 20 20 20 20 6d 61 |m-.. | ma|
|00003b10| 6e 64 20 77 69 6c 6c 20 | 65 78 65 63 75 74 65 20 |nd will |execute |
|00003b20| 77 69 74 68 6f 75 74 20 | 70 72 6f 64 75 63 69 6e |without |producin|
|00003b30| 67 20 61 20 73 69 6e 67 | 6c 65 20 73 6f 75 6e 64 |g a sing|le sound|
|00003b40| 2e 20 20 42 65 20 73 75 | 72 65 20 20 6e 6f 74 0d |. Be su|re not.|
|00003b50| 0a 20 20 20 20 20 20 20 | 20 20 20 74 6f 20 66 6f |. | to fo|
|00003b60| 72 67 65 74 20 74 6f 20 | 74 75 72 6e 20 74 68 65 |rget to |turn the|
|00003b70| 6d 20 6f 6e 20 62 65 66 | 6f 72 65 20 74 68 65 20 |m on bef|ore the |
|00003b80| 70 72 6f 67 72 61 6d 20 | 66 69 6e 69 73 68 65 73 |program |finishes|
|00003b90| 20 28 53 4e 44 4f 4e 29 | 2e 0d 0a 0d 0a 0d 0a 20 | (SNDON)|....... |
|00003ba0| 20 20 20 20 20 20 20 20 | 20 45 78 61 6d 70 6c 65 | | Example|
|00003bb0| 20 3a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 73 6f | :.. | so|
|00003bc0| 75 6e 64 20 32 30 30 2c | 31 3a 73 6f 75 6e 64 20 |und 200,|1:sound |
|00003bd0| 33 30 30 2c 31 3a 73 6f | 75 6e 64 20 34 30 30 2c |300,1:so|und 400,|
|00003be0| 31 3a 63 61 6c 6c 20 73 | 6e 64 6f 66 66 0d 0a 20 |1:call s|ndoff.. |
|00003bf0| 20 20 20 20 20 20 20 20 | 20 73 6f 75 6e 64 20 32 | | sound 2|
|00003c00| 30 30 2c 31 3a 73 6f 75 | 6e 64 20 33 30 30 2c 31 |00,1:sou|nd 300,1|
|00003c10| 3a 73 6f 75 6e 64 20 34 | 30 30 2c 31 0d 0a 0d 0a |:sound 4|00,1....|
|00003c20| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 75 6e 63 |.. | Func|
|00003c30| 74 69 6f 6e 20 4e 61 6d | 65 3a 20 1b 47 53 4e 44 |tion Nam|e: .GSND|
|00003c40| 4f 4e 1b 48 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ON.H.. | |
|00003c50| 41 72 67 75 6d 65 6e 74 | 73 20 20 20 20 3a 20 4e |Argument|s : N|
|00003c60| 4f 4e 45 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |ONE.. | T|
|00003c70| 79 70 65 20 20 20 20 20 | 20 20 20 20 3a 20 53 70 |ype | : Sp|
|00003c80| 65 61 6b 65 72 20 73 75 | 70 70 6f 72 74 0d 0a 20 |eaker su|pport.. |
|00003c90| 20 20 20 20 20 20 20 20 | 20 50 75 72 70 6f 73 65 | | Purpose|
|00003ca0| 20 20 20 20 20 20 3a 20 | 54 75 72 6e 73 20 73 6f | : |Turns so|
|00003cb0| 75 6e 64 20 6f 6e 20 73 | 6f 20 74 68 61 74 20 74 |und on s|o that t|
|00003cc0| 68 65 20 42 41 53 49 43 | 20 53 4f 55 4e 44 20 61 |he BASIC| SOUND a|
|00003cd0| 6e 64 20 42 45 45 50 0d | 0a 20 20 20 20 20 20 20 |nd BEEP.|. |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cf0| 20 20 63 6f 6d 6d 61 6e | 64 73 20 77 6f 72 6b 2e | comman|ds work.|
|00003d00| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 44 65 |.... | De|
|00003d10| 73 63 72 69 70 74 69 6f | 6e 3a 0d 0a 20 20 20 20 |scriptio|n:.. |
|00003d20| 20 20 20 20 20 20 54 68 | 69 73 20 66 75 6e 63 74 | Th|is funct|
|00003d30| 69 6f 6e 20 63 61 6e 20 | 68 65 6c 70 20 73 6f 6c |ion can |help sol|
|00003d40| 76 65 20 74 68 65 20 70 | 72 6f 62 6c 65 6d 20 74 |ve the p|roblem t|
|00003d50| 68 61 74 20 6f 63 63 75 | 72 73 20 77 68 65 6e 20 |hat occu|rs when |
|00003d60| 79 6f 75 20 75 73 65 0d | 0a 20 20 20 20 20 20 20 |you use.|. |
|00003d70| 20 20 20 73 6f 6d 65 20 | 20 6d 65 6d 6f 72 79 20 | some | memory |
|00003d80| 72 65 73 69 64 65 6e 74 | 20 70 72 6f 67 72 61 6d |resident| program|
|00003d90| 73 20 74 68 61 74 20 75 | 73 65 20 74 68 65 20 73 |s that u|se the s|
|00003da0| 70 65 61 6b 65 72 20 61 | 6e 64 20 77 68 65 6e 20 |peaker a|nd when |
|00003db0| 74 68 65 79 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |they.. | |
|00003dc0| 61 72 65 20 64 6f 6e 65 | 20 74 68 65 20 74 75 72 |are done| the tur|
|00003dd0| 6e 20 69 74 20 6f 66 66 | 20 73 6f 20 74 68 61 74 |n it off| so that|
|00003de0| 20 61 6e 79 20 53 4f 55 | 4e 44 20 6f 72 20 42 45 | any SOU|ND or BE|
|00003df0| 45 50 20 63 6f 6d 6d 61 | 6e 64 73 20 77 6f 6e 27 |EP comma|nds won'|
|00003e00| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 70 72 6f |t.. | pro|
|00003e10| 64 75 63 65 20 61 6e 20 | 61 75 64 69 62 6c 65 20 |duce an |audible |
|00003e20| 73 69 67 6e 61 6c 2e 20 | 20 49 74 20 63 61 6e 20 |signal. | It can |
|00003e30| 61 6c 73 6f 20 74 75 72 | 6e 20 6f 6e 20 74 68 65 |also tur|n on the|
|00003e40| 20 73 6f 75 6e 64 20 77 | 68 65 6e 20 69 74 0d 0a | sound w|hen it..|
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 77 61 73 20 74 75 | | was tu|
|00003e60| 72 6e 65 64 20 6f 66 66 | 20 62 79 20 74 68 65 20 |rned off| by the |
|00003e70| 66 75 6e 63 74 69 6f 6e | 20 53 4e 44 4f 46 46 21 |function| SNDOFF!|
|00003e80| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 45 78 |.... | Ex|
|00003e90| 61 6d 70 6c 65 3a 0d 0a | 20 20 20 20 20 20 20 20 |ample:..| |
|00003ea0| 20 20 73 6f 75 6e 64 20 | 32 30 30 2c 31 3a 73 6f | sound |200,1:so|
|00003eb0| 75 6e 64 20 33 30 30 2c | 31 3a 73 6f 75 6e 64 20 |und 300,|1:sound |
|00003ec0| 34 30 30 2c 31 3a 63 61 | 6c 6c 20 73 6e 64 6f 66 |400,1:ca|ll sndof|
|00003ed0| 66 0d 0a 20 20 20 20 20 | 20 20 20 20 20 73 6f 75 |f.. | sou|
|00003ee0| 6e 64 20 32 30 30 2c 31 | 3a 73 6f 75 6e 64 20 33 |nd 200,1|:sound 3|
|00003ef0| 30 30 2c 31 3a 73 6f 75 | 6e 64 20 34 30 30 2c 31 |00,1:sou|nd 400,1|
|00003f00| 3a 63 61 6c 6c 20 73 6e | 64 6f 6e 0d 0a 20 20 20 |:call sn|don.. |
|00003f10| 20 20 20 20 20 20 20 73 | 6f 75 6e 64 20 32 30 30 | s|ound 200|
|00003f20| 2c 31 3a 73 6f 75 6e 64 | 20 33 30 30 2c 31 3a 73 |,1:sound| 300,1:s|
|00003f30| 6f 75 6e 64 20 34 30 30 | 2c 31 0d 0a 0d 0a 0d 0a |ound 400|,1......|
|00003f40| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|00003f50| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00003f60| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 20 1b 47 42 | | --- .GB|
|00003f70| 41 53 44 4c 58 20 20 20 | 56 65 72 73 69 6f 6e 20 |ASDLX |Version |
|00003f80| 31 2e 32 20 20 20 46 65 | 62 72 75 61 72 79 20 31 |1.2 Fe|bruary 1|
|00003f90| 39 38 37 1b 48 20 2d 2d | 2d 0d 0a 0c 1b 41 48 0a |987.H --|-....AH.|
|00003fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 1b 47 42 | | .GB|
|00003fb0| 41 53 44 4c 58 20 28 43 | 29 20 43 6f 70 79 72 69 |ASDLX (C|) Copyri|
|00003fc0| 67 68 74 20 31 39 38 36 | 2d 38 37 20 42 79 20 47 |ght 1986|-87 By G|
|00003fd0| 75 73 74 61 76 6f 20 56 | 65 72 64 75 6e 20 20 20 |ustavo V|erdun |
|00003fe0| 20 20 20 20 50 61 67 65 | 20 38 1b 48 1b 41 0c 0a | Page| 8.H.A..|
|00003ff0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 75 6e 63 |.. | Func|
|00004000| 74 69 6f 6e 20 4e 61 6d | 65 3a 20 1b 47 58 4c 43 |tion Nam|e: .GXLC|
|00004010| 1b 48 0d 0a 20 20 20 20 | 20 20 20 20 20 20 41 72 |.H.. | Ar|
|00004020| 67 75 6d 65 6e 74 73 20 | 20 20 20 3a 20 28 1b 34 |guments | : (.4|
|00004030| 53 74 72 69 6e 67 24 1b | 35 29 0d 0a 20 20 20 20 |String$.|5).. |
|00004040| 20 20 20 20 20 20 54 79 | 70 65 20 20 20 20 20 20 | Ty|pe |
|00004050| 20 20 20 3a 20 53 74 72 | 69 6e 67 20 6d 61 6e 69 | : Str|ing mani|
|00004060| 70 75 6c 61 74 69 6f 6e | 0d 0a 20 20 20 20 20 20 |pulation|.. |
|00004070| 20 20 20 20 50 75 72 70 | 6f 73 65 20 20 20 20 20 | Purp|ose |
|00004080| 20 3a 20 43 6f 6e 76 65 | 72 74 73 20 74 68 65 20 | : Conve|rts the |
|00004090| 73 74 72 69 6e 67 20 74 | 6f 20 6c 6f 77 65 72 20 |string t|o lower |
|000040a0| 63 61 73 65 2e 0d 0a 0d | 0a 20 20 20 20 20 20 20 |case....|. |
|000040b0| 20 20 20 44 65 73 63 72 | 69 70 74 69 6f 6e 3a 0d | Descr|iption:.|
|000040c0| 0a 20 20 20 20 20 20 20 | 20 20 20 4e 6f 20 66 75 |. | No fu|
|000040d0| 72 74 68 65 72 20 65 78 | 70 6c 61 6e 61 74 69 6f |rther ex|planatio|
|000040e0| 6e 73 20 61 72 65 20 6e | 65 63 65 73 73 61 72 79 |ns are n|ecessary|
|000040f0| 2c 20 49 20 68 6f 70 65 | 21 0d 0a 0d 0a 20 20 20 |, I hope|!.... |
|00004100| 20 20 20 20 20 20 20 45 | 78 61 6d 70 6c 65 3a 0d | E|xample:.|
|00004110| 0a 20 20 20 20 20 20 20 | 20 20 20 61 3d 22 54 48 |. | a="TH|
|00004120| 49 53 20 57 49 4c 4c 20 | 42 45 20 49 4e 20 4c 4f |IS WILL |BE IN LO|
|00004130| 57 45 52 20 43 41 53 45 | 21 22 3a 63 61 6c 6c 20 |WER CASE|!":call |
|00004140| 78 6c 63 28 61 24 29 3a | 70 72 69 6e 74 20 61 24 |xlc(a$):|print a$|
|00004150| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 46 75 |.... | Fu|
|00004160| 6e 63 74 69 6f 6e 20 4e | 61 6d 65 3a 20 1b 47 58 |nction N|ame: .GX|
|00004170| 55 43 1b 48 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |UC.H.. | |
|00004180| 41 72 67 75 6d 65 6e 74 | 73 20 20 20 20 3a 20 28 |Argument|s : (|
|00004190| 1b 34 53 74 72 69 6e 67 | 24 1b 35 29 0d 0a 20 20 |.4String|$.5).. |
|000041a0| 20 20 20 20 20 20 20 20 | 54 79 70 65 20 20 20 20 | |Type |
|000041b0| 20 20 20 20 20 3a 20 53 | 74 72 69 6e 67 20 6d 61 | : S|tring ma|
|000041c0| 6e 69 70 75 6c 61 74 69 | 6f 6e 0d 0a 20 20 20 20 |nipulati|on.. |
|000041d0| 20 20 20 20 20 20 50 75 | 72 70 6f 73 65 20 20 20 | Pu|rpose |
|000041e0| 20 20 20 3a 20 43 6f 6e | 76 65 72 74 73 20 74 68 | : Con|verts th|
|000041f0| 65 20 73 74 72 69 6e 67 | 20 74 6f 20 75 70 70 65 |e string| to uppe|
|00004200| 72 20 63 61 73 65 2e 0d | 0a 0d 0a 20 20 20 20 20 |r case..|... |
|00004210| 20 20 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e | Des|cription|
|00004220| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 4e 6f 20 |:.. | No |
|00004230| 66 75 72 74 68 65 72 20 | 65 78 70 6c 61 6e 61 74 |further |explanat|
|00004240| 69 6f 6e 73 20 61 72 65 | 20 6e 65 63 65 73 73 61 |ions are| necessa|
|00004250| 72 79 2c 20 49 20 68 6f | 70 65 21 0d 0a 0d 0a 20 |ry, I ho|pe!.... |
|00004260| 20 20 20 20 20 20 20 20 | 20 45 78 61 6d 70 6c 65 | | Example|
|00004270| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 61 3d 22 |:.. | a="|
|00004280| 74 68 69 73 20 77 69 6c | 6c 20 62 65 20 69 6e 20 |this wil|l be in |
|00004290| 75 70 70 65 72 20 63 61 | 73 65 21 22 3a 63 61 6c |upper ca|se!":cal|
|000042a0| 6c 20 78 75 63 28 61 24 | 29 3a 70 72 69 6e 74 20 |l xuc(a$|):print |
|000042b0| 61 24 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |a$......|........|
|000042c0| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|000042d0| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|000042e0| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|000042f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004300| 20 20 20 20 20 2d 2d 2d | 20 1b 47 42 41 53 44 4c | ---| .GBASDL|
|00004310| 58 20 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 32 20 |X Vers|ion 1.2 |
|00004320| 20 20 46 65 62 72 75 61 | 72 79 20 31 39 38 37 1b | Februa|ry 1987.|
|00004330| 48 20 2d 2d 2d 0d 0a 0c | 1b 41 48 0a 20 20 20 20 |H ---...|.AH. |
|00004340| 20 20 20 20 20 20 20 20 | 20 1b 47 42 41 53 44 4c | | .GBASDL|
|00004350| 58 20 28 43 29 20 43 6f | 70 79 72 69 67 68 74 20 |X (C) Co|pyright |
|00004360| 31 39 38 36 2d 38 37 20 | 42 79 20 47 75 73 74 61 |1986-87 |By Gusta|
|00004370| 76 6f 20 56 65 72 64 75 | 6e 20 20 20 20 20 20 20 |vo Verdu|n |
|00004380| 50 61 67 65 20 39 1b 48 | 1b 41 0c 0a 0d 0a 20 20 |Page 9.H|.A.... |
|00004390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b | | .|
|000043b0| 47 53 75 6d 6d 61 72 79 | 20 6f 66 20 46 75 6e 63 |GSummary| of Func|
|000043c0| 74 69 6f 6e 73 1b 48 0d | 0a 0d 0a 20 20 20 20 20 |tions.H.|... |
|000043d0| 20 20 20 20 20 50 6c 65 | 61 73 65 20 75 73 65 20 | Ple|ase use |
|000043e0| 74 68 69 73 20 61 73 20 | 61 20 71 75 69 63 6b 20 |this as |a quick |
|000043f0| 73 75 6d 6d 61 72 79 20 | 74 6f 20 42 41 53 44 4c |summary |to BASDL|
|00004400| 58 20 66 75 6e 63 74 69 | 6f 6e 73 2e 20 54 68 69 |X functi|ons. Thi|
|00004410| 73 20 73 75 6d 2d 0d 0a | 20 20 20 20 20 20 20 20 |s sum-..| |
|00004420| 20 20 6d 61 72 79 20 20 | 73 68 6f 75 6c 64 20 20 | mary |should |
|00004430| 6f 6e 6c 79 20 62 65 20 | 75 73 65 64 20 6f 6e 63 |only be |used onc|
|00004440| 65 20 79 6f 75 20 75 6e | 64 65 72 73 74 61 6e 64 |e you un|derstand|
|00004450| 20 74 68 65 20 72 6f 75 | 74 69 6e 65 73 2c 20 20 | the rou|tines, |
|00004460| 62 75 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6a |but.. | j|
|00004470| 75 73 74 20 6e 65 65 64 | 20 61 20 71 75 69 63 6b |ust need| a quick|
|00004480| 20 72 65 66 72 65 73 68 | 6d 65 6e 74 2e 0d 0a 0d | refresh|ment....|
|00004490| 0a 20 20 20 20 20 20 20 | 20 20 20 46 75 6e 63 74 |. | Funct|
|000044a0| 69 6f 6e 20 4e 61 6d 65 | 3a 20 1b 47 42 53 4f 52 |ion Name|: .GBSOR|
|000044b0| 54 4e 1b 48 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |TN.H.. | |
|000044c0| 41 72 67 75 6d 65 6e 74 | 73 20 20 20 20 3a 20 28 |Argument|s : (|
|000044d0| 1b 34 4e 75 6d 5f 6f 66 | 5f 65 6c 65 6d 65 6e 74 |.4Num_of|_element|
|000044e0| 73 2c 49 6e 74 65 67 65 | 72 5f 61 72 72 61 79 25 |s,Intege|r_array%|
|000044f0| 28 73 74 61 72 74 29 1b | 35 29 0d 0a 20 20 20 20 |(start).|5).. |
|00004500| 20 20 20 20 20 20 74 79 | 70 65 20 20 20 20 20 20 | ty|pe |
|00004510| 20 20 20 3a 20 69 6e 74 | 65 67 65 72 20 76 61 72 | : int|eger var|
|00004520| 69 61 62 6c 65 20 73 65 | 72 76 69 63 65 0d 0a 20 |iable se|rvice.. |
|00004530| 20 20 20 20 20 20 20 20 | 20 50 75 72 70 6f 73 65 | | Purpose|
|00004540| 20 20 20 20 20 20 3a 20 | 53 6f 72 74 73 20 61 6e | : |Sorts an|
|00004550| 20 69 6e 74 65 67 65 72 | 20 61 72 72 61 79 20 69 | integer| array i|
|00004560| 6e 20 61 73 63 65 6e 64 | 69 6e 67 20 6f 72 64 65 |n ascend|ing orde|
|00004570| 72 20 77 69 74 68 0d 0a | 20 20 20 20 20 20 20 20 |r with..| |
|00004580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004590| 20 6e 65 67 61 74 69 76 | 65 20 6e 75 6d 62 65 72 | negativ|e number|
|000045a0| 73 20 61 70 70 65 61 72 | 69 6e 67 20 61 74 20 74 |s appear|ing at t|
|000045b0| 68 65 20 65 6e 64 20 20 | 69 6e 0d 0a 20 20 20 20 |he end |in.. |
|000045c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000045d0| 20 20 20 20 20 61 73 63 | 65 6e 64 69 6e 67 20 6f | asc|ending o|
|000045e0| 72 64 65 72 2e 0d 0a 0d | 0a 20 20 20 20 20 20 20 |rder....|. |
|000045f0| 20 20 20 46 75 6e 63 74 | 69 6f 6e 20 4e 61 6d 65 | Funct|ion Name|
|00004600| 3a 20 1b 47 42 53 4f 52 | 54 53 1b 48 0d 0a 20 20 |: .GBSOR|TS.H.. |
|00004610| 20 20 20 20 20 20 20 20 | 41 72 67 75 6d 65 6e 74 | |Argument|
|00004620| 73 20 20 20 20 3a 20 28 | 1b 34 4e 75 6d 5f 6f 66 |s : (|.4Num_of|
|00004630| 5f 65 6c 65 6d 65 6e 74 | 73 25 2c 41 72 72 61 79 |_element|s%,Array|
|00004640| 24 28 73 74 61 72 74 5f | 70 6f 73 69 74 69 6f 6e |$(start_|position|
|00004650| 29 1b 35 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |).5).. | |
|00004660| 54 79 70 65 20 20 20 20 | 20 20 20 20 20 3a 20 53 |Type | : S|
|00004670| 74 72 69 6e 67 20 73 65 | 72 76 69 63 65 0d 0a 20 |tring se|rvice.. |
|00004680| 20 20 20 20 20 20 20 20 | 20 50 75 72 70 6f 73 65 | | Purpose|
|00004690| 20 20 20 20 20 20 3a 20 | 53 6f 72 74 73 20 61 20 | : |Sorts a |
|000046a0| 73 74 72 69 6e 67 20 61 | 72 72 61 79 20 69 6e 20 |string a|rray in |
|000046b0| 61 73 63 65 6e 64 69 6e | 67 20 61 6c 70 68 61 62 |ascendin|g alphab|
|000046c0| 65 74 69 63 61 6c 0d 0a | 20 20 20 20 20 20 20 20 |etical..| |
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046e0| 20 6f 72 64 65 72 2e 0d | 0a 0d 0a 20 20 20 20 20 | order..|... |
|000046f0| 20 20 20 20 20 46 75 6e | 63 74 69 6f 6e 20 4e 61 | Fun|ction Na|
|00004700| 6d 65 3a 20 1b 47 47 55 | 4e 1b 48 0d 0a 20 20 20 |me: .GGU|N.H.. |
|00004710| 20 20 20 20 20 20 20 41 | 72 67 75 6d 65 6e 74 73 | A|rguments|
|00004720| 20 20 20 20 3a 20 28 1b | 34 4e 75 6d 5f 6f 66 5f | : (.|4Num_of_|
|00004730| 73 68 6f 74 73 25 1b 35 | 29 0d 0a 20 20 20 20 20 |shots%.5|).. |
|00004740| 20 20 20 20 20 54 79 70 | 65 20 20 20 20 20 20 20 | Typ|e |
|00004750| 20 20 3a 20 53 70 65 61 | 6b 65 72 20 73 75 70 70 | : Spea|ker supp|
|00004760| 6f 72 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |ort.. | P|
|00004770| 75 72 70 6f 73 65 20 20 | 20 20 20 20 3a 20 53 69 |urpose | : Si|
|00004780| 6d 75 6c 61 74 65 73 20 | 74 68 65 20 73 6f 75 6e |mulates |the soun|
|00004790| 64 20 6f 66 20 61 20 67 | 75 6e 20 6f 72 20 6d 61 |d of a g|un or ma|
|000047a0| 63 68 69 6e 65 20 67 75 | 6e 0d 0a 0d 0a 20 20 20 |chine gu|n.... |
|000047b0| 20 20 20 20 20 20 20 46 | 75 6e 63 74 69 6f 6e 20 | F|unction |
|000047c0| 4e 61 6d 65 3a 20 1b 47 | 52 45 41 44 50 1b 48 0d |Name: .G|READP.H.|
|000047d0| 0a 20 20 20 20 20 20 20 | 20 20 20 41 72 67 75 6d |. | Argum|
|000047e0| 65 6e 74 73 20 20 20 20 | 3a 20 28 1b 34 50 6f 72 |ents |: (.4Por|
|000047f0| 74 5f 6e 75 6d 25 1b 35 | 29 0d 0a 20 20 20 20 20 |t_num%.5|).. |
|00004800| 20 20 20 20 20 54 79 70 | 65 20 20 20 20 20 20 20 | Typ|e |
|00004810| 20 20 3a 20 50 72 69 6e | 74 65 72 20 73 75 70 70 | : Prin|ter supp|
|00004820| 6f 72 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |ort.. | P|
|00004830| 75 72 70 6f 73 65 20 20 | 20 20 20 20 3a 20 52 65 |urpose | : Re|
|00004840| 61 64 73 20 74 68 65 20 | 70 72 69 6e 74 65 72 20 |ads the |printer |
|00004850| 73 74 61 74 75 73 20 6f | 66 20 74 68 65 20 73 70 |status o|f the sp|
|00004860| 65 63 69 66 69 65 64 20 | 70 6f 72 74 0d 0a 20 20 |ecified |port.. |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004880| 20 20 20 20 20 20 20 6e | 75 6d 62 65 72 20 28 31 | n|umber (1|
|00004890| 2d 33 29 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |-3) and |returns |
|000048a0| 77 69 74 68 20 74 68 65 | 20 73 74 61 74 75 73 20 |with the| status |
|000048b0| 62 79 74 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |byte.. | |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 66 | | f|
|000048d0| 6f 72 20 74 68 61 74 20 | 70 6f 72 74 20 69 6e 20 |or that |port in |
|000048e0| 74 68 65 20 70 6f 72 74 | 5f 6e 75 6d 25 20 76 61 |the port|_num% va|
|000048f0| 72 69 61 62 6c 65 2e 0d | 0a 0d 0a 20 20 20 20 20 |riable..|... |
|00004900| 20 20 20 20 20 46 75 6e | 63 74 69 6f 6e 20 4e 61 | Fun|ction Na|
|00004910| 6d 65 3a 20 1b 47 52 45 | 53 45 54 50 1b 48 0d 0a |me: .GRE|SETP.H..|
|00004920| 20 20 20 20 20 20 20 20 | 20 20 41 72 67 75 6d 65 | | Argume|
|00004930| 6e 74 73 20 20 20 20 3a | 20 28 1b 34 50 6f 72 74 |nts :| (.4Port|
|00004940| 5f 6e 75 6d 25 1b 35 29 | 0d 0a 20 20 20 20 20 20 |_num%.5)|.. |
|00004950| 20 20 20 20 54 79 70 65 | 20 20 20 20 20 20 20 20 | Type| |
|00004960| 20 3a 20 50 72 69 6e 74 | 65 72 20 73 75 70 70 6f | : Print|er suppo|
|00004970| 72 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 50 75 |rt.. | Pu|
|00004980| 72 70 6f 73 65 20 20 20 | 20 20 20 3a 20 52 65 73 |rpose | : Res|
|00004990| 65 74 73 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |ets the |specifie|
|000049a0| 64 20 70 72 69 6e 74 65 | 72 20 70 6f 72 74 20 6e |d printe|r port n|
|000049b0| 75 6d 62 65 72 20 28 31 | 2d 33 29 0d 0a 20 20 20 |umber (1|-3).. |
|000049c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000049d0| 20 20 20 20 20 20 61 6e | 64 20 72 65 74 75 72 6e | an|d return|
|000049e0| 73 20 77 69 74 68 20 69 | 74 73 20 73 74 61 74 75 |s with i|ts statu|
|000049f0| 73 20 62 79 74 65 20 28 | 73 65 65 20 74 68 65 20 |s byte (|see the |
|00004a00| 52 45 41 44 50 0d 0a 20 | 20 20 20 20 20 20 20 20 |READP.. | |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a20| 66 75 6e 63 74 69 6f 6e | 20 64 65 73 63 72 69 70 |function| descrip|
|00004a30| 74 69 6f 6e 20 66 6f 72 | 20 69 6e 66 6f 72 6d 61 |tion for| informa|
|00004a40| 74 69 6f 6e 20 6f 6e 20 | 74 68 65 0d 0a 20 20 20 |tion on |the.. |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a60| 20 20 20 20 20 20 70 72 | 69 6e 74 65 72 20 73 74 | pr|inter st|
|00004a70| 61 74 75 73 20 62 79 74 | 65 29 0d 0a 0d 0a 20 20 |atus byt|e).... |
|00004a80| 20 20 20 20 20 20 20 20 | 46 75 6e 63 74 69 6f 6e | |Function|
|00004a90| 20 4e 61 6d 65 3a 20 1b | 47 53 45 54 4c 1b 48 0d | Name: .|GSETL.H.|
|00004aa0| 0a 20 20 20 20 20 20 20 | 20 20 20 41 72 67 75 6d |. | Argum|
|00004ab0| 65 6e 74 73 20 20 20 20 | 3a 20 28 1b 34 53 6f 75 |ents |: (.4Sou|
|00004ac0| 72 63 65 5f 73 74 72 69 | 6e 67 24 2c 44 65 73 74 |rce_stri|ng$,Dest|
|00004ad0| 69 6e 61 74 69 6f 6e 5f | 73 74 72 69 6e 67 24 1b |ination_|string$.|
|00004ae0| 35 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 54 79 |5).. | Ty|
|00004af0| 70 65 20 20 20 20 20 20 | 20 20 20 3a 20 53 74 72 |pe | : Str|
|00004b00| 69 6e 67 20 6d 61 6e 69 | 70 75 6c 61 74 69 6f 6e |ing mani|pulation|
|00004b10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 50 75 72 70 |.. | Purp|
|00004b20| 6f 73 65 20 20 20 20 20 | 20 3a 20 54 68 69 73 20 |ose | : This |
|00004b30| 66 75 6e 63 74 69 6f 6e | 20 77 69 6c 6c 20 70 6c |function| will pl|
|00004b40| 61 63 65 20 74 68 65 20 | 73 6f 75 72 63 65 20 73 |ace the |source s|
|00004b50| 74 72 69 6e 67 20 69 6e | 73 69 64 65 0d 0a 20 20 |tring in|side.. |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004b70| 20 20 20 20 20 20 20 6f | 66 20 74 68 65 20 64 65 | o|f the de|
|00004b80| 73 74 69 6e 61 74 69 6f | 6e 20 6c 65 66 74 2d 6a |stinatio|n left-j|
|00004b90| 75 73 74 69 66 69 65 64 | 2e 20 49 66 20 74 68 65 |ustified|. If the|
|00004ba0| 20 73 6f 75 72 63 65 0d | 0a 20 20 20 20 20 20 20 | source.|. |
|00004bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004bc0| 20 20 73 74 72 69 6e 67 | 20 69 73 20 6c 6f 6e 67 | string| is long|
|00004bd0| 65 72 20 74 68 61 6e 20 | 74 68 65 20 64 65 73 74 |er than |the dest|
|00004be0| 69 6e 61 74 69 6f 6e 20 | 73 74 72 69 6e 67 20 74 |ination |string t|
|00004bf0| 68 65 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |hen.. | |
|00004c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 68 | | th|
|00004c10| 65 20 72 69 67 68 74 20 | 70 6f 72 74 69 6f 6e 20 |e right |portion |
|00004c20| 6f 66 20 74 68 65 20 73 | 74 72 69 6e 67 20 77 69 |of the s|tring wi|
|00004c30| 6c 6c 20 62 65 20 74 72 | 75 6e 63 61 74 65 64 2e |ll be tr|uncated.|
|00004c40| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 20 20 20 20 |........|.... |
|00004c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004c60| 20 2d 2d 2d 20 1b 47 42 | 41 53 44 4c 58 20 20 20 | --- .GB|ASDLX |
|00004c70| 56 65 72 73 69 6f 6e 20 | 31 2e 32 20 20 20 46 65 |Version |1.2 Fe|
|00004c80| 62 72 75 61 72 79 20 31 | 39 38 37 1b 48 20 2d 2d |bruary 1|987.H --|
|00004c90| 2d 0d 0a 0c 1b 41 48 0a | 20 20 20 20 20 20 20 20 |-....AH.| |
|00004ca0| 20 20 20 20 20 1b 47 42 | 41 53 44 4c 58 20 28 43 | .GB|ASDLX (C|
|00004cb0| 29 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 38 36 |) Copyri|ght 1986|
|00004cc0| 2d 38 37 20 42 79 20 47 | 75 73 74 61 76 6f 20 56 |-87 By G|ustavo V|
|00004cd0| 65 72 64 75 6e 20 20 20 | 20 20 20 20 50 61 67 65 |erdun | Page|
|00004ce0| 20 31 30 1b 48 1b 41 0c | 0a 0d 0a 20 20 20 20 20 | 10.H.A.|... |
|00004cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004d00| 20 20 20 20 20 20 20 20 | 1b 47 53 75 6d 6d 61 72 | |.GSummar|
|00004d10| 79 20 6f 66 20 46 75 6e | 63 74 69 6f 6e 73 20 28 |y of Fun|ctions (|
|00004d20| 43 6f 6e 74 2e 29 1b 48 | 0d 0a 0d 0a 20 20 20 20 |Cont.).H|.... |
|00004d30| 20 20 20 20 20 20 46 75 | 6e 63 74 69 6f 6e 20 4e | Fu|nction N|
|00004d40| 61 6d 65 3a 20 1b 47 53 | 45 54 52 1b 48 0d 0a 20 |ame: .GS|ETR.H.. |
|00004d50| 20 20 20 20 20 20 20 20 | 20 41 72 67 75 6d 65 6e | | Argumen|
|00004d60| 74 73 20 20 20 20 3a 20 | 28 1b 34 53 6f 75 72 63 |ts : |(.4Sourc|
|00004d70| 65 5f 73 74 72 69 6e 67 | 24 2c 44 65 73 74 69 6e |e_string|$,Destin|
|00004d80| 61 74 69 6f 6e 5f 73 74 | 72 69 6e 67 24 1b 35 29 |ation_st|ring$.5)|
|00004d90| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 54 79 70 65 |.. | Type|
|00004da0| 20 20 20 20 20 20 20 20 | 20 3a 20 53 74 72 69 6e | | : Strin|
|00004db0| 67 20 6d 61 6e 69 70 75 | 6c 61 74 69 6f 6e 0d 0a |g manipu|lation..|
|00004dc0| 20 20 20 20 20 20 20 20 | 20 20 50 75 72 70 6f 73 | | Purpos|
|00004dd0| 65 20 20 20 20 20 20 3a | 20 54 68 69 73 20 66 75 |e :| This fu|
|00004de0| 6e 63 74 69 6f 6e 20 77 | 69 6c 6c 20 70 6c 61 63 |nction w|ill plac|
|00004df0| 65 20 74 68 65 20 73 6f | 75 72 63 65 20 73 74 72 |e the so|urce str|
|00004e00| 69 6e 67 20 69 6e 73 69 | 64 65 0d 0a 20 20 20 20 |ing insi|de.. |
|00004e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004e20| 20 20 20 20 20 74 68 65 | 20 64 65 73 74 69 6e 61 | the| destina|
|00004e30| 74 69 6f 6e 20 73 74 72 | 69 6e 67 20 72 69 67 68 |tion str|ing righ|
|00004e40| 74 20 6a 75 73 74 69 66 | 69 65 64 2e 20 49 66 20 |t justif|ied. If |
|00004e50| 74 68 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |the.. | |
|00004e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 65 | | de|
|00004e70| 73 74 69 6e 61 74 69 6f | 6e 20 73 74 72 69 6e 67 |stinatio|n string|
|00004e80| 20 69 73 20 73 68 6f 72 | 74 65 72 20 74 68 61 6e | is shor|ter than|
|00004e90| 20 74 68 65 20 73 6f 75 | 72 63 65 0d 0a 20 20 20 | the sou|rce.. |
|00004ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004eb0| 20 20 20 20 20 20 73 74 | 72 69 6e 67 20 74 68 65 | st|ring the|
|00004ec0| 6e 20 74 68 65 20 72 69 | 67 68 74 20 70 6f 72 74 |n the ri|ght port|
|00004ed0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 73 74 72 69 6e |ion of t|he strin|
|00004ee0| 67 20 77 69 6c 6c 0d 0a | 20 20 20 20 20 20 20 20 |g will..| |
|00004ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f00| 20 62 65 20 74 72 75 6e | 63 61 74 65 64 2e 0d 0a | be trun|cated...|
|00004f10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 75 6e 63 |.. | Func|
|00004f20| 74 69 6f 6e 20 4e 61 6d | 65 3a 20 1b 47 53 4e 44 |tion Nam|e: .GSND|
|00004f30| 4f 46 46 1b 48 0d 0a 20 | 20 20 20 20 20 20 20 20 |OFF.H.. | |
|00004f40| 20 41 72 67 75 6d 65 6e | 74 73 20 20 20 20 3a 20 | Argumen|ts : |
|00004f50| 4e 4f 4e 45 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |NONE.. | |
|00004f60| 54 79 70 65 20 20 20 20 | 20 20 20 20 20 3a 20 53 |Type | : S|
|00004f70| 70 65 61 6b 65 72 20 73 | 75 70 70 6f 72 74 0d 0a |peaker s|upport..|
|00004f80| 20 20 20 20 20 20 20 20 | 20 20 50 75 72 70 6f 73 | | Purpos|
|00004f90| 65 20 20 20 20 20 20 3a | 20 54 75 72 6e 73 20 73 |e :| Turns s|
|00004fa0| 70 65 61 6b 65 72 20 6f | 66 66 2e 20 49 66 20 74 |peaker o|ff. If t|
|00004fb0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|00004fc0| 75 73 65 64 20 74 68 65 | 6e 0d 0a 20 20 20 20 20 |used the|n.. |
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004fe0| 20 20 20 20 74 68 65 20 | 42 41 53 49 43 20 53 4f | the |BASIC SO|
|00004ff0| 55 4e 44 20 6f 72 20 42 | 45 45 50 20 63 6f 6d 6d |UND or B|EEP comm|
|00005000| 61 6e 64 73 20 77 69 6c | 6c 20 6e 6f 74 20 77 6f |ands wil|l not wo|
|00005010| 72 6b 2e 0d 0a 0d 0a 20 | 20 20 20 20 20 20 20 20 |rk..... | |
|00005020| 20 46 75 6e 63 74 69 6f | 6e 20 4e 61 6d 65 3a 20 | Functio|n Name: |
|00005030| 1b 47 53 4e 44 4f 4e 1b | 48 0d 0a 20 20 20 20 20 |.GSNDON.|H.. |
|00005040| 20 20 20 20 20 41 72 67 | 75 6d 65 6e 74 73 20 20 | Arg|uments |
|00005050| 20 20 3a 20 4e 4f 4e 45 | 0d 0a 20 20 20 20 20 20 | : NONE|.. |
|00005060| 20 20 20 20 54 79 70 65 | 20 20 20 20 20 20 20 20 | Type| |
|00005070| 20 3a 20 53 70 65 61 6b | 65 72 20 73 75 70 70 6f | : Speak|er suppo|
|00005080| 72 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 50 75 |rt.. | Pu|
|00005090| 72 70 6f 73 65 20 20 20 | 20 20 20 3a 20 54 75 72 |rpose | : Tur|
|000050a0| 6e 73 20 73 6f 75 6e 64 | 20 6f 6e 20 73 6f 20 74 |ns sound| on so t|
|000050b0| 68 61 74 20 74 68 65 20 | 42 41 53 49 43 20 53 4f |hat the |BASIC SO|
|000050c0| 55 4e 44 20 61 6e 64 20 | 42 45 45 50 0d 0a 20 20 |UND and |BEEP.. |
|000050d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050e0| 20 20 20 20 20 20 20 63 | 6f 6d 6d 61 6e 64 73 20 | c|ommands |
|000050f0| 77 6f 72 6b 2e 0d 0a 0d | 0a 20 20 20 20 20 20 20 |work....|. |
|00005100| 20 20 20 46 75 6e 63 74 | 69 6f 6e 20 4e 61 6d 65 | Funct|ion Name|
|00005110| 3a 20 1b 47 58 4c 43 1b | 48 0d 0a 20 20 20 20 20 |: .GXLC.|H.. |
|00005120| 20 20 20 20 20 41 72 67 | 75 6d 65 6e 74 73 20 20 | Arg|uments |
|00005130| 20 20 3a 20 28 1b 34 53 | 74 72 69 6e 67 24 1b 35 | : (.4S|tring$.5|
|00005140| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 54 79 70 |).. | Typ|
|00005150| 65 20 20 20 20 20 20 20 | 20 20 3a 20 53 74 72 69 |e | : Stri|
|00005160| 6e 67 20 6d 61 6e 69 70 | 75 6c 61 74 69 6f 6e 0d |ng manip|ulation.|
|00005170| 0a 20 20 20 20 20 20 20 | 20 20 20 50 75 72 70 6f |. | Purpo|
|00005180| 73 65 20 20 20 20 20 20 | 3a 20 43 6f 6e 76 65 72 |se |: Conver|
|00005190| 74 73 20 74 68 65 20 73 | 74 72 69 6e 67 20 74 6f |ts the s|tring to|
|000051a0| 20 6c 6f 77 65 72 20 63 | 61 73 65 2e 0d 0a 0d 0a | lower c|ase.....|
|000051b0| 20 20 20 20 20 20 20 20 | 20 20 46 75 6e 63 74 69 | | Functi|
|000051c0| 6f 6e 20 4e 61 6d 65 3a | 20 1b 47 58 55 43 1b 48 |on Name:| .GXUC.H|
|000051d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 41 72 67 75 |.. | Argu|
|000051e0| 6d 65 6e 74 73 20 20 20 | 20 3a 20 28 1b 34 53 74 |ments | : (.4St|
|000051f0| 72 69 6e 67 24 1b 35 29 | 0d 0a 20 20 20 20 20 20 |ring$.5)|.. |
|00005200| 20 20 20 20 54 79 70 65 | 20 20 20 20 20 20 20 20 | Type| |
|00005210| 20 3a 20 53 74 72 69 6e | 67 20 6d 61 6e 69 70 75 | : Strin|g manipu|
|00005220| 6c 61 74 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |lation..| |
|00005230| 20 20 50 75 72 70 6f 73 | 65 20 20 20 20 20 20 3a | Purpos|e :|
|00005240| 20 43 6f 6e 76 65 72 74 | 73 20 74 68 65 20 73 74 | Convert|s the st|
|00005250| 72 69 6e 67 20 74 6f 20 | 75 70 70 65 72 20 63 61 |ring to |upper ca|
|00005260| 73 65 2e 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |se......|........|
|00005270| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0d |........|........|
|00005280| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 20 20 20 20 20 |........|... |
|00005290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000052a0| 2d 2d 2d 20 1b 47 42 41 | 53 44 4c 58 20 20 20 56 |--- .GBA|SDLX V|
|000052b0| 65 72 73 69 6f 6e 20 31 | 2e 32 20 20 20 46 65 62 |ersion 1|.2 Feb|
|000052c0| 72 75 61 72 79 20 31 39 | 38 37 1b 48 20 2d 2d 2d |ruary 19|87.H ---|
|000052d0| 0c 0d 0a 1a | |.... | |
+--------+-------------------------+-------------------------+--------+--------+
